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SEQ 0001 
ZQNA1 CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 Page 1 
5-Jul-1984 14:00:51  [MAZURCZYK.DEQNA)JZQNA1.BLI;2 (1) 
; 0001 0 MODULE ZQNA1 (STITLE ‘CZQ@NACO DEQNA FUNCTIONAL TEST’ 
; 0002 0 IDENT = ‘VO1.0', 
: 0003 0 ADDRESSING. ADE ABSOLUTE), 
; 0004 0 LANGUAGE(BLISS16)) = 
; 0005 0 SSBTTL ‘GLOBAL DEFINITION MODULE’ 
3 0006 O 
3; 0007 1 BEGIN 
; 0008 1 
: € 0009 i «( 
; € 0010 1 IDENTIFICATION 
2 SCR ee ne rene 
; C OO12 1 
; € 0013 1 PRODUCT CODE: AC-T614C-MC 
: € 0014 1 
; : 0015 1 PRODUCT NAME: CZQNACO DEQNA FUNCTIONAL TEST 
3 16 #1 
; ¢ 0017 1 PRODUCT DATE: JULY 5, 1984 
: 1 1 
; : 9019 1 MAINTAINER: PSD DIAGNOSTIC ENGINEERING 
: 1 
; ¢ 0021 1 AUTHOR : S. MAZURCZYK 
: C 0022 i 
; C 0023 1 
; : 0024 } COPYRIGHT (C) 1984 
; : 0026 : DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754 
3; ¢ 0028 1 THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
3; € 0029 1 COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE 
; € 0030 1 ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
; € 0031 1 MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
; € 9032 1 EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE 
; € 0033 1 TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
; c 0034 ; REMAIN IN DEC. 
3 € 003 1 THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
; € 0037 1 AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
; c 0038 ; CORPORATION. 
3 € 0040 1 DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: : 0041 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
; c 0043 1 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
; € 0045 1 DIGITAL PoP UNIBUS MASSBUS 
: : 0046 : DEC DECUS DEC TAPE 
“a 1 
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1.0 GENERAL INFORMATION 


eee ee eee eee eee ee 


The DIGITAL ETHERNET Q-Bus Network Adapter (DEQNA) Field Functional 
Diagnostic Program (ZQNA) performs extensive functional testing of 
the DEQNA/M7504 module for Q@18 or Q22-Bus based PDP-11 systems. ZQNA 
program attempts to isolate faults to the following Field Replaceable 
Units (FRU's): DEQNA, bulkhead assembly, transceiver cable, circuit 
breaker ( fuse in bulkhead assembly ) and transceiver. This software 
a to localize faults to the functional areas of thie DEQNA 
module. 


A test operator controls testing of the module from a console 
( hard copy or CRT ). 


This diagnostic has been written for use with the diagnostic 
runtime services software (supervisor). These services provide 
the interface to the operator and to the software environment. 
For ea complete description of the runtime services, refer to the 
XxXDP+ user's manual. There is a brief description of the runtime 
services in section 2 of this document. 


1.2 SYSTEM REQUIREMENTS 


The ZQNA software operates on a typical ‘newer PDP-11 processor’ system 
that has one or two DEQNA modules on the Q18 or Q22 system bus. 

The internal and internal/extended loopback mode tests do not 

require the transceiver or the loopback connector to be unplugged. 

The external loopback mode may be used with a terminated transceiver 
that has no network cable attached. 


Testing DEGNA module and its interface to the Ethernet requires 
following hardware: 


Hah oe ( PDP-11723 Plus, ORION ) with Q-Bus, 
e. 

Minimum of 28K words of memory ( supporting block or non-block mode ), 

Corsole terminal, 

Loopback connector ( male loopback connector, Part # 12 221 96-01 ), 

Bulkhead assembly, 

Transceiver cable, 

and transceiver ( H4000 ). 
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1.3 RELATED DOCUMENTS AND STANDARDS 


XXOP+ Supervisor/User's Manual - ( CHQUS ). 


1.4 ASSUMPTIONS 


It is assumed that the system has been tested without DEQNA and found 
working before this diagnostic is run, or that DEQNA DEC/X11 
Exerciser has dropped DEQNA option module when running system test. 


2.0 OPERATING INSTRUCTIONS 


This section contains a brief description of the runtime services. 
for detailed information, refer to the XXDP+ User's Manual (CHQUS). 


2.1 COMMANDS 


There are eleven legal commands for the diagnostic runtime services 
(supervisor). This section lists the commands and gives a very 
brief description of them. The XXDP+ User's Manual has more details. 


So you may, 


COMMAND EFFECT 

START Start the diagnostic from an initial state 

RESTART Start the diagnostic without initializing 

CONT INUE Continue at test that was interrupted (after tC) 

PROCEED Continue from an error halt 

EXIT Return to XXDP+ monitor (XXDP+ operation only!) 

ADD Activate a unit for testing (all units are 
considered to be active at start time 

OROP Ceactivate a unit 

PRINT Print statistical information Cif implemented 
by the diagnostic - section 4.0) 

DISPLAY Type a list of all device information 

FLAGS Type the state of all fl (see section 2.3) 

ZFLAGS Clear all flags (see section 2.3 


A command can be recognized by the first three characters. 
for example, type “STA” instead of “START”. 


Fi 
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2.2 SWITCHES 


There are several switches which ere used to modify supervisor 
operation. These switches are appended to the legal commands. 
All of the legal switches are tabulated below with a brief 
description of each. In the descriptions below, a decimal number 
is designated by "DDDDD”. 


SWITCH EFFECT 


/TESTS:LIST Execute only those tests specified in 

the list. List is a string of test 

numbers, for example - /TESTS:1:5:7-10. 

This list will cause tests 1,5,7,8.9,10 to 

be run. All other tests will not be run. 
/PASS:D0000 Execute DDDDD passes (DDDDD = 1 to 64000) 
/FLAGS:FLGS Set specified flags. flags are described 

in section 2.3. 
/EOP :DDDDD Report end of pass mess after every 

ODDDD passes only. (DDDDD = 1 to 64000) 
/UNITS:LIST TEST/ADD/DROP only those units specified 

in the list. List example - /UNITS:0:5:10-12 

use units 0,5.10,11.12 Cunit numbers = 0-63) 


Example of switch usage: 
START/TESTS:1-5/PASS: 1000/E0P: 100 
The effect of this command will be: 
1. Tests 1 thr 5 will be executed. 
2. All units will be tested 1000 ‘times. 
3. The end of pass messages will be 
printed efter each 100 passes only. 


A Switch can be recognized by the first three characters. 
may. for example, type "/TES:1-5" instead of “/TESTS: 
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Below is a table that specifies which switches can be used by 
each command. 


TESTS PASS FLAGS 


START 
RESTART 
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0232 2.3 FLAGS 
See 2. - wae Lb 42 ree 
0234 ; ; 
0235 Flags are used to set up certain operational parameters such as 
0236 looping on error. All flags are cleared at startup and remain 
0237 cleared until explicitly set using the flags switch. Flags 
0238 are also cleared after a start command unless set using the 
0239 flag switch. The ZFLAGS command may also be used to clear 
0240 all flags. with the exception of the START and ZFLAGS commands, 
0241 No commands affect the state of the flags; they remain set or 
0242 cleared as specified by the last flag switch. 
0243 
0244 FLAG EFFECT 
0245 os3=5 (j= § See ee esensocesoncesscussesoocsce 
0246 : 
0247 HOE Halt on error - control is returned to 
0248 runtime services command mode 
0249 LOE Loop on error 
0250 IER*s Inhibit all error reports 
0251 IBRe Inhibit all error reports except first 


level (first level contains error type. 
number, PC, test and unit) 

Inhibit extended error reports (those 
called by PRINTX macro’s) 

PRI Direct messages to line printer 

PNT Print test number as test executes 

BOE "BEL!.” on error 

UAM Unattended mode (no manual intervention) 
ISR Inhibit statistical reports (does not apply 
to diagnostics which do not support statis- 
tical reporting) 

IDR Inhibit program dropping of units 

ADR Execute autodrop code 

LOT Loop on test 

EVL Execute evaluation (on diagnostics which 
have evaluation support ) 


*error messages are described in section 3.0 

See the XXDP+ User's Manual for more details on flags. You may 
specify more than one flag with the flag switch. For example, 
to cause the program to loop on error, inhibit error reports 
and type a “BELL” onerror, you may use the following string: 


/FLAGS:LOE: IER: BOE 
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2.4 HARDWARE QUESTIONS 


When a diagnostic is started, the DRS prompts the user for hardware 
information by displaying 


“CHANGE HW (L) ?” 


you must answer “Y" after a start command unless the hardware 
information has been "preloaded" using the Setup Utility (see chapter 
6 of the XXDP+ User's Manual). When you answer this question with a 
"Y", the DRS asks for the number of units. You will then be asked the 
following questions for each unit. 


© OF DEVICES (D) ? 

Answer with the number of units to be tested (no default). This answer 
will determine how many times the following questions are asked. 

One 1) device must be specified. 

DEQNA I/O PAGE ADR (0) 174440 ? 

Answer with the address of the 1/0 page register assigned for one 

of the DEQNA devices. The I/0 page addresses permited are: 174440 

and 174460. 

INTERRUPT VECTOR ADR (0) 700 ? 

Answer with the interrupt vector address of the DEQNA module. 


Interrupt vector address for device at I/0 page address 174440 is 700 
oct. and that for I/0 page address of 174460 is 704 oct. 
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2.5 SOFTWARE QUESTIONS 


After you have answered the hardware questions or after a RESTART or 
CONTINUE command, the ORS asks for software parameters. These 
parameters govern some diagnostic specific operation modes. You will 
be prompted by 


CHANGE SW (L) ? 


if you wish to change any parameters, answer by typing "Y". The 
software questions and the default values are described in the next 
paragraph(s). 


DO YOU WANT TO TEST SANITY TIMER (L)? 

If you wish to test the Sanity Timer logic, answer by typing “Y". 
Whenever this question is answered with a “Y" following question 
will follow: 

SANITY TIMER TIMEOUT VALUE (0D)? 


Answer with the TIMEOUT VALUE being a decimal number between 0 and 7. 
Use table below to select desired TIMEOUT VALUE. 


TIMEOUT VALUE TIMEOUT PERIOD IN SEC. 


NOU SWF O 


EXTERNAL LOOPBACK MODE (L)? 

Answer with "Y" if you want to execute include "TEST 7" in the test 
sequence. “TEST 7" is the only test that uses external loopback mode. 
"N" inhibits execution of “TEST 7". 

SYSTEM HAS BLOCK-MODE MEMORY (L)? 


Answer with "“Y” if the system has block-mode memory and "N" if 
it has non block-mode memory. 


IS LOOPBACK CONNECTOR IN DEQNA (L)? 


Answer with “Y" if loopback connector is in the back of the DEQNA 
module. 
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2.6 QUICK START-UP PROCEDURE (XXDP+) 


To start-up this program: 
© Boot XXDP+ 
o Give the date 


o Type "R Name”, where Name is the name of the BIN file for 
this program 


Type “START” 

Answer the “CHANGE HW” question with "Y” 
Answer all the hardware questions 

Answer the “CHANGE SW” question with "Y” 


, ee ©@ @ © 


Answer all the software questions 


When you follow this procedure you will be using only the defaults for 
flags and software parameters. These defaults are described in the 
previous sections. 
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3.0 ERROR INFORMATION 


There are three levels of error messages that may be issued by 

a diagnostic: general, basic and extended. General error messages 
are always printed unless the IBE and/or IER flag is set. The general 
error message is of the form: 


NAME ER_TYPE ER_NO UNIT_NO TEST_NO PC_ADDR 


ewhere; 
NAME = Diagnostic name 
ER_TYPE = Error type ( all errors are HARD ) 
ER_NO = Error number 
UNIT_NO = 0 
TEST_NO = Test and subtest where error occurred 
PC_ADDR = Program Counter contents 


Basic error messages are messages that contain some additional 
information about the error. These are always printed unless one or 
more of the DRS error flag(s) ( IBE, IXE, IER ) is set. These 
messages are printed before the associated general message. 


Extended error messages contain supplementary error information such 
as register contents or /obad data. These are always printed unless 
the IXE and/or IER flag is set. These messages are printed after the 
associated general error message and any associated basic error 
messages. A typical extended error message might have a following 
format: 


TRANSMIT DESCRIPTOR LIST RECEIVE DESCRIPTOR LIST 


Flag Word Flag Word 

Low Order Addr Bits Low Order Addr Bits 
High Order Addr Bits High Order Addr Bits 
Packet Length (byte) Packet Length (byte) 
Status Word 1 Status Word 1 

Status Word 2 Status Word 2 


SEQ 0011 


SEQ 0012 
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SPECIFIC ERROR MESSAGES 


The following are possible error messages. 


DEQNA FATAL ERROR DETECTED 

ACTUAL DATA = octal number EXPECTED DATA = octal number 

BAD CSR: ACT = octal number EXP = octal number 

BAD TRANSMIT FLAG WORD: ACT = octal number EXP = octal number 
BAD TRANSMIT STATUS WORD i: ACT = octal number EXP = octal number 
BAD RECEIVE FLAG WORD: ACT = octal number EXP = octal number 
BAD RECEIVE STATUS WORD 1: ACT = octal number EXP = octal number 
BAD RECEIVE BUFFER LENGTH: ACT = octal number EXP = octal number 
BAD CSR = octal number 

LOOPBACK PACKET UNABLE TO SET CA BIT. CSR = octal number 

LOOPBACK PACKET UNABLE TO CLEAR CA BIT, CSR = octal number 

CA BIT OK, BUT RI BIT IS NOT ON, CSR = octal number 

CA BIT IN THE CSR WAS SET TOO EARLY, CSR = octal number 

BAD CSR, EXPECTED, XL AND RL ( BITS 4,5 ) TO BE RESET TO 0 

BAD CSR, EXPECTED, XL AND RL C( BITS 4.5 ) TO BE SET TO 1 

BAD CSR, EXPECTED, RI ( BIT 15 ) TO BE SET TO 1 

BAD CSR, EXPECTED, XI ( BIT 7 ) TO BE SET TO 1 

BAD CSR, EXPECTED, NI ( BIT 2 ) TO BE SET TO 1 

BAD CSR, EXPECTED, NI ( BIT 2 ) TO BE RESET T0 0 


CSR ADR = octal number ACTUAL = octal number EXPECTED = octal number 

UNABLE TO RESET DEQNA: ADR: address CSR = octal number 

WAIT ABOUT number SECOND(S) 

SANITY TIMER TIMED OUT AS EXPECTED 

NO SANITY TIMER INTERRUPT DETECTED 

DISCONNECT TRANSCEIVER CABLE FROM BULKHEAD ASSEMBLY AND CONNECT 
LOOPBACK CONNECTOR TO BULKHEAD ASSEMBLY, THEN RETEST 

DISCONNECT BULKHEAD ASSEMBLY FROM DEQNA AND CONNECT 

LOOPBACK CONNECTOR TO DEQNA, THEN RETEST 

CHECK FOR LOOSE WIRES IN A LOOPBACK CONNECTOR OR USE DIFFERENT 
LOOPBACK CONNECTOR, THEN RETEST 

REPLACE DEQNA, THEN RETEST 

REPLACE BULKHEAD CONNECTOR, THEN RETEST 

DISCONNECT TRANSCEIVER CABLE FROM TRANSCEIVER AND CONNECT IT TO 
LOOPBACK CONNECTOR AND BULKHEAD ASSEMBLY 

REPLACE TRANSCEIVER CABLE, THEN RETEST 

REPLACE TRANSCEIVER, THEN RETEST 

REPLACE THE FUSE IF BAD, THEN RETEST 

BAD RECEIVE DESCRIPTOR: 

BAD TRANSMIT DESCRIPTOR: 

BAD RECEIVE BUFFER: 

ACTUAL = octal number EXPECTED = octal number INDEX = decimal number 

DMA OPERATION TAKES TOO LONG 

TOO MANY DEVICES 

THERE WAS A POWER FAIL - WAITING 

WAIT ABOUT decimal nae MINUTEC(S) 

WAIT ABOUT decimal number HOUR 

IF NO RESET, TYPE ANY CHARACTER TO EXIT FROM TEST 
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TOR VALUE = ON’), 

BAD CSR, BITS STUCK AT O: 

BAD CSR, BITS STUCK AT 1: 

SOFTWARE. RESET UNABLE TO CLEAR CSR STATIC BITS: 

BAD STATION ADDRESS CHECKSUM: ACT = octal number EXP = octal number 

BAD STATION ADDRESS: station address 

BAD DEQNA I/O PAGE REGISTER: register address 

BAD CSR, EXPECTED RL ( BIT 5 ) TO BE SET TO O 

BAD B/D PROM CHECKSUM: INDEX = octal number ACT = octal number EXP = octal number 
B/D PROM CHECKSUM i. ok = octal number ACT = octal number EXP = octal number 
BAD INTERRUPT: ADR = tal number ACT LEV = octal number EXP LEV = octal number 
REGISTER FAILED TO RESPOND AT ADDRESS: register address 
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4.0 TEST SUMMARIES 


Each test has its own test summary; therefore, test summaries are not 
included here. 
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CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL DEFINITION MODULE 


LIBRARY ‘QNALIB’; 
REQUIRE ‘BLSMAC.REQ’; 


DEFINE THE NUMBER OF TESTS 


PSECT 
CODE = AASCODES; 


LITERAL 
DS$NBR_OF_TESTS = 21; 


EQUALS; 
POINTER CALL); 


° 
& 


THE PROGRAM HEADER IS THE 
AND THE SUPERVISOR. 
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! DIAGNOSTIC SUPERVISOR LIBRARY 


IN THIS DIAGNOSTIC 


INTERFACE BETWEEN THE DIAGNOSTIC PROGRAM 


HEADER (s#ASCII'CZQNA ‘ ,ASCII‘C’ ,ASCII‘O’, 120, 0, PRIOO); 


7 
° 


NO POINTERS ARE OPTIONAL USING BLISS. MAKE SURE THE FOLLOWING 
SECTIONS OF CODE ARE IN PLACE CIN THE CORRECT SKELS),EVEN IF 


THE SECTIONS ARE BLANK, 


ARGUMENT FUNCTION 
RPT REPORT CODE 
Si SOFTWARE TABLE 
SFT SOFTWARE TABLE QUESTIONS 
AU ADD CODE 
OROP CODE 
TBL ERROR TABLE 
SETUP ASSEMBLED P-TABLES 


CHANGE THE “HEADER” TO CONTAIN THE PROPER ARGUMENTS. 
ARGUMENTS ARE: NAME,REV,PATCH,LONGEST TES? TIME, TYPE 
WHERE “TYPE” = 0 FOR SEQUENTIAL DIAGNOSTIC AND =1 


FOR EXERCISER. THERE IS ALSO AN OPTIONAL SIXTH ARGUMENT 
WHICH SPECIFIES THE PROCESSOR PRIORITY TO BE SET WHEN 
STARTING THE DIAGNOSTIC (DEFAULT IS 0). 


2 


SEQ 0015 
Page 15 
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Poe ee ee ee he be be he he he be be he he ee pe ee he pe 


De 


CZQNACO DEQNA FUNCTIONAL TEST S5-Jul-1984 14:03:26 
DISPATCH TABLE S-Jul-1984 14:00:51 


@SBTTL ‘DISPATCH TABLE’ 
DISPATCH (DS$NBR_OF _TESTS); 


IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


CHANGE THE LITERAL DECLARATION OF OS$NBR_OF ~— TO BE 
THE NUMBER OF HARDWARE TESTS IN YOUR PROGRAM 


se te seta s@ra@tate 
* 


ERROR NUMBER, ADDRESS OF ERROR MESSAGE AND ADDRESS OF MESSAG 
IS NOT OPTIONAL 


THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNAJZQNA1 .BLI;2 


THE ERRTBL MACRO IS REQUIRED WHETHER OR NOT YOU REPORT ERRORS USING 
THE “ERROR” MACRO. THE ERRTBL MACRO EXPANDS INTO FOUR WORDS THAT 
ARE USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ee TYPE, 


BLOCK. THERE MUST BE ONLY ONE ERRTBL IN ANY PROGRAM. THIS SECTION 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 
GLOBAL DATA SECTION 5-Jul-1984 14:00:51 {[MAZURCZYK .DEQNA)ZQNA1.BLI;2 
SSBTTL ‘GLOBAL DATA SECTION’ 

PSEC 


T 

PLIT = $PLITS, 
OWN = $OWNS, 
GLOBAL = $GLOB$; 


THE GLOBAL DATA DEFINED IN THIS SECTION IS USED BY MORE THAN ONE 
TE 


GLOBAL 
See 
: COMMUNICATION AREA DECLARATIONS 
e.. 
RCV_O_LIST : BLOCK [ D_SIZE, WORD ) FIELD ( OL_FIELDS ), 
XMIT_D_LIST : BLOCK. { D_SIZE, WORD ) FIELD ( DL_FIELDS ), 
RCV_BUFFER : VECTOR ( B_SIZE, BYTE }, 
XMIT_BUFFER : VECTOR ( B_SIZE, BYTE ]}, 
PHYS_ADR : VECTOR ( 22, BYTE }, 
SETUP_BUFFER : VECTOR { SETUB_SIZE, WORD }, 
IOP _TABLE : VECTOR { 8, WORD J, 
ETH_STATION_ADR : VECTOR [ 6, WORD }, 
STATION_ADR : VECTOR ( 4, WORD J, 
PTRN_TABLE : VECTOR { 8, BYTE ] INITIAL ( BYTE (¢ 


#B'00000000', #B8'11111111', #8'10101010', #8'01010101', 
#B'11001100', #B'00110011', #B'11110000', #B'00001111')), 


SEQ 001 
Page 


7 
17 
(16) 


Fe 


ZQNA1 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14: 
v01.0 GLOBAL DATA SECTION 5-Jul-1984 14: 
: tee! : TARGET_ADR : VECTOR ( T_SIZ&, BYTE } INITIAL ( BYTE ¢ 
; 1 

; 2103 1 %X'00', #X'00', #X'00', BX'00', X'00', #X'00', 'i- 
3; 2104 1 8X'55', #x'55', #X‘'55', 8X'S5', BX'S5', #BX'5SS', ! 2 

; 2105 1 SX'AA', SX'AA', SX'AA', SX'AA', SX'AA’, SX'AA’, . Bs 
s 2106 1 6X'SS', 8X'SS', BX'SS', BX'SS', BX'SS', BX'SS', ! 4- 
; 2107 1 SX'FF', X'FF', SX'FF', SX'FF', SX'FF', SX°FF', ’ és 
: 2108 1 %X'00', SX'FA', BX'FA', SX'44', SX'44', SX'5S', ! 6 

; 2109 1 X'AA', #X'00', #X'00', #X'00', #X'00', #X'00', ; 7. 
3 2110 1 SX‘ AA, 8X'00', BX'O2', BX'AA', SX‘AA', BX'AA', . 

8 2111 1 sX' AAR’, BX'OO', BX‘'OS', #X‘'SS’, BX‘'55’, BX'55', ' 9g 

> ea ¢ X'AA', 8X'00', SX'04', SX'FF’, SX'FF', SX'FF', ' 10 

; 2113 1 SX'AA', 8X'00', BX'04', 8X00, #X'00', #X‘00', . £8 
: 2114 1 sX' AAR’, 8X'00', BX'O4', 8X'18', BX'B1', BX'18', ! i2 - 
: 2s #X'O1', 8X'OO', #X'00', 8X‘'00’, #X‘'00', #X'00', ' 13 - 
; 2116 1 SX' AB‘, SX'AA', SX'AA', SX'AA', SX'AA', SX'AA', 114 - 
s @ii7 3 SX'FF', 8X‘'OO', BX'O1', BX‘'O2', BX'O3', BX'04', ; 15 - 
; 2118 1 #X'SS', 8X'0OS', 8X‘'06', 8X‘'O7', #8X'08', 8X'09', ' 16 - 
s e119 1 X'CD', 8X‘'36', 8X'26', BX'27', BX'27', BX'49', ! 17 

s 2120 1 6X'33', SX'AL', X'67', SX'BB’, SX'4C', SX'OF', ' 18 

5 \ aa of SX'EB’, SX'BE', SX‘'C7’, SX'BF’, SX'33', SX'FF', ' 19 

8 2l22 1 OX'FF', SX'FF', SX'FF', SX'FF', SX'FF', SX'FF’ )), ! 20 - 


03:26 VAX-11 Bliss-16 V4.0-579 
00:51 ([MAZURCZYK .DEQNA)ZQNA1.BLI;2 


MEMORY PATTERN 
MEMORY PATTERN 
MEMORY PATTERN 
MEMORY PATTERN 


MEMORY PATTERN 


LOW ETHERNET ADR 


HIGH ETHERNET 
ALL MULTICAST 
ALL MULTICAST 
ALL MULTICAST 
ALL MULTICAST 


STATION ADDR 


ADR 


SEQ 0018 


Page 


18 
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Cl kk ek dd ed ed 


CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL DATA SECTION 


BD_PROM_DESCR 
NEWB, 
V. 
RCV_BUFFER, 
BYTE_COUNT, 
NEWB, 
V. 
XMIT_BUFFER, 
BYTE_COUNT, 
0, 
oO, 
NEWB, 
0. 
0 )). 
T016: VECTOR [ 44, WORD ) INITIAL ( WORD ( 
NEWB, VL , XMIT_BUFFER ‘ =*2 w 
NEWB, VHL, XMIT_BUFFER s “2% 
NEWB, VH , XMIT_BUFFER + eh @ 
NEWB, VE , XMIT_BUFFER + 4 * “ho 
NEWB, 9 XMIT_D_LIST ¢ 60 ry -l e 
NEWB, Vv e XMIT_O_LIST ° 56 . -2 . 
NEWB, VE , TARGET_ADR + 114 . Be 
NEWB, E )). 
TD13: VECTOR [{ 34, WORD ) INITIAL ( WORD ( 
NEWB, V , XMIT_BUFFER » = 
NEWB, V , XMIT_BUFFER + 2 .-1l27 
WB, Vv ° XMIT_BUFFER * 256 . -1 
NEWB, Cc e XMIT_D_LIST ° 48 ° -1 
NEWB, VE , XMIT_BUFFER + 258 « ~65 
NEWB, E )), 
RD13: VECTOR [ 64, WORD ) INITIAL ( WORD ( 
NEWB, V , RCV_BUFFER eo ol 
NEWB, V . RCV_BUFFER «+ 2 » -62 
» V, RCV_BUFFER + 126 » =k 
NEWB, V , RCV_BUFFER + 128 .« = 
NEWB, V , RCV_BUFFER + 132 » -60 
NEWB, V , RCV_BUFFER + 252 ee 
WB, VC , RCV_D_LIST «+ 84 « 4 
NEWB, V , RCV_BUFFER + 256 a ag 


5-Jul-1984 14:03:26 


Ge 


VAX-11 Bliss-16 V4.0-579 


5S-Jul-1984 14:00:51 [MAZURCZYK .DEQNA)ZQNA1.BLI;2 


: VECTOR [ BD_D_SIZE, WORD ] INITIAL ( WORD ( 


BUFFER NOT USED IF 1 
VALID ADDRESS IF 1 
RCV BUFFER ADDRESS 
1/4 THE BYTE COUNT 
STATUS WORD 1 

STATUS WORD 2 


BUFFER NOT USED IF 1 
VALID ADDRESS IF 1 
XMIT BUFFER ADDRESS 
1/4 THE BYTE COUNT 
STATUS WORD 1 

STATUS WORD 2 


BUFFER NOT USED IF 1 
VALID ADDRESS IF 1 
2 EXTRA WORDS 


! 1 BYTE DESCRIPTOR 
! 2 BYTE DESCRIPTOR 
! 1 BYTE DESCRIPTOR 
! 2 BYTE DESCRIPTOR 
! END OF DESCRIPTOR 
! 4 BYTE DESCRIPTOR 
! 6 BYTE DESCRIPTOR 
! END OF DESCRIPTOR 


2 BYTE DESCRIPTOR 
378 BYTE DESCRIPTOR 
2 BYTE DESCRIPTOR 
CHAIN DESCRIPTOR 
2 BYTE DESCRIPTOR 
END OF DESCRIPTOR 


2 BYTE DESCRIPTOR 
124 BYTE DESCRIPTOR 
2 BYTE DESCRIPTOR 
4 BYTE DESCRIPTOR 
120 BYTE DESCRIPTOR 
4 BYTE DESCRIPTOR 
CHAIN DESCRIPTOR 
6 BYTE DESCRIPTOR 





ZQNA1 
vO1.0 


2176 
2177 
2178 
2179 


dd 


CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL DATA SECTION 


NEWB, V , RCV_BUFFER + 262 
NEWB, V , RCV_BUFFER + 362 
NEWB, E )), 


-60 oO 
-1 


He 


5-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 
S-Jul-1984 14:00:51 (MAZURCZYK .DEGNA JZQNA1.BLI;2 


0, O, ! 120 BYTE DESCRIPTOR 
0, Oo, ! 2 BYTE DESCRIPTOR 
! END OF DESCRIPTOR 


SEQ 0020 
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CZQNACO DEQWWA FUNCTIONAL TEST 
5-Jul-1984 14:00:51 (MAZURCZYK .DEQNAJZQNA1.BLI;2 


GLOBAL DATA SECTION 
J 
: HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 
t 


HWP _ TABLE REF BLOCK [ HWP_SIZE, WORD ) FIELD ( HWP_FIELDS ), 


SWP _TABLE REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ), 
REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 
IOP_DATA : REF REG_STR FIELD ( IOP_FIELDS ), 
GET_ADR : REF ADR_STR FIELD ( IOP_FIELDS ), 


¢¢ 


MISCELLANEOUS DATA DECLARATIONS 


ERR_FLAG : WORD INITIAL (0), 
: WORD INITIAL (0), 


XBUF LENGTH : WORD, ! XMIT BUFFER LENGTH IN WORDS 
RBUF __LENGTH : WORD, ! RCV BUFFER LENGTH IN BYTES 
INTERRUPT _FLG : WORD, ! 1 = INTERRUPT OCCURED 
DEQNA_NO : WORD, ! DEQNA UNDER TEST THIS PASS 
COUNTER : WORD, ! ITERATION COUNTER, INDEX 
UP _COUNTER : WORD, ! ITERATION COUNTER, INDEX 
DOWN_COUNTER : WORD, ; ! ITERATION COUNTER, INDEX 
CHECKSUM : WORD, ' EXPECTED PROM CHECKSUM 
BUF _LENGTH WORD, ! XMIT BUFFER SIZE IN WORDS 
CSR_WORD : WORD, : 
KC_FLAG : WORD INITIAL (0), $ 
ERR_NUMBER : WORD INITIAL (0), : 

’ 


m 
» 
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SEQ 0022 
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TEMPORARY STORAGE DATA DECLARATIONS 


I/0 PAGE REGISTER ADDRESS 
I/0 PAGE REG CONTENTS 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
TEMPORARY STORAGE LOCATION 
PARAMETER #1 

PARAMETER #2 

PARAMETER #3 

PARAMETER #4 

PARAMETER #5 


TMP _IOP_ADR : WORD, 
TMP_REG_DATA 
TEMP1 
TEMP2 


3 
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SEQ 0023 
CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:03:26  VAX-11 Bliss-16 V4.0-579 Page 23 
GLOBAL DATA SECTION 5-Jul-1984 14:00:51 | [MAZURCZYK.DEQNAJZQNA1.BLI;2 (21) 


*SBTTL ‘GLOBAL TEXT SECTION’ 


te 
$ : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, a 
: AND ASCII INFORMATION THAT IS USED IN MORE THAN ONE TEST 


GLOBAL BIND 


DESCR_LIST = RCV_O_LIST, 
DATA_BUFFER = RCV_BUFFER, 


HARDWARE AND SOFTWARE QUESTJUNS 


(sASCIZ'DEQNA I/0 PAGE ADR ‘), 

(sASCIZ' INTERRUPT VECTOR ADR '‘), 

(SASCIZ‘DO YOU WANT TO TEST SANITY TIMER '), 
(#ASCIZ‘'IS LOOPBACK CONNECTOR IN DEQNA '), 
(#ASCIZ‘SANITY TIMER TIME-OUT VALUE a. 
(sASCIZ' EXTERNAL LOOPBACK MODE ‘). 
(sASCIZ‘' SYSTEM HAS BLOCK-MODE MEMORY ‘). 


DEVICE ERROR MESSAGES 


MSGOO = UPLIT (s#ASCIZ' DEQNA FATAL ERROR DETECTED ‘), 

UPLIT (sASCIZ'sSNSNSA DEQNA ADDRESS: s068A, STATION ADDRESS: ‘), 
(sASCIZ‘#A ACTUAL DATA = #06sA EXPECTED DATA = s06sN’), 
(sASCIZ'#A XMIT DESCRIPTOR RCV DESCRIPTOR sN‘), 
(sASCIZ’#A FLAG WORD SO6SA aN’), 
(sASCIZ' SA HIGH ORDER ADDR BITS sOGmN' >: 
(sASCIZ‘#A LOW ORDER ADDR BITS SO6SN' ), 
(sASCIZ‘ SA PACKET LENGTH ( WD ) SO68N' ), 
(sASCIZ‘ #A STATUS WORD 1 SO6SN' ), 
(#ASCIZ' SA STATUS WORD 2 SO6SN' ), 
(sASCIZ'#A DEQNA CSR REGISTER SO6SN' ), 
(sASCIZ'#A DEQNA I/O PAGE ADR SO6SNSN' ), 
(sASCIZ‘SA BAD CSR: ACT = sO068A EXP = SO6SN'), 

(SASCIZ'SA BAD TRANSMIT FLAG WORD: ACT = s068A EXP = sO6sN’), 
(#ASCIZ‘#A BAD TRANSMIT STATUS WORD 1: ACT = sO68A EXP = sO6SN’), 
(sASCIZ'SA BAD RECEIVE FLAG WORD: ACT = s068A EXP = sO06mN'), 
(SASCIZ'#A BAD RECEIVE STATUS WORD 1: ACT = s068A EXP = sO6sN’), 
(SASCIZ'SA BAD RECEIVE BUFFER LENGTH: ACT = sO6s8A EXP = sO6sN’ ), 
(sASCIZ'SA BAD CSR = sO6sN'), 

(#ASCIZ‘#A LOOPBACK PACKET UNABLE TO SET CA BIT, CSR = s068N'), 
(#ASCIZ'#A LOOPBACK PACKET UNABLE TO CLEAR CA BIT, CSR = sO6sN'), 
(sASCIZ‘SA CA BIT OK, BUT RI BIT IS NOT ON, CSR = #06sN’), 


et 





SEQ 0024 
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UPLIT (#ASCIZ'#SA CA BIT IN THE CSR WAS SET TOO as a oer = SO068N'), 
UPLIT (#ASCIZ'#A XL AND RL ( BITS 4,5 ) TO BE RESET TO ON’), 

UPLIT (#ASCIZ'SA XL AND RL ( BITS 4,5 ) TO BE SET to. 1sN‘), 

UPLIT (#ASCIZ‘'#A RI ( BIT 15 ) TO BE SET TO 1sN‘), 

UPLIT (#ASCIZ'SA XI ( BIT 7 ) TO BE SET TO 1sN’), 

UPLIT (#ASCIZ'SA NI ( BIT 2 ) TO BE SET TO 18N’), 

UPLIT (#ASCIZ'#SA NI ( BIT 2 ) TO BE RESET TO ON’), 

UPLIT (#ASCIZ'#A BAD COR, EXPECTED’), 

UPLIT (#ASCIZ'#A ee ADR'= s068A ACTUAL = SO68A EXPECTED = s06sN’), 

UPLIT (#ASCIZ'SNSA UNABLE TO RESET DEQNA: ADR: sO68A CSR = #s068N'), 

UPLIT (sASCIZ'sSNSA WAIT ABOUT #DesA SECOND(S) -'), 

UPLIT (s#ASCIZ'sNSA SANITY TIMER TIMED OUT AS EXPECTED #N’), 

UPLIT (sASCIZ'sNSA NO SANITY TIMER INTERRUPT DETECTED SN’), 

UPLIT (sASCIZ'sNSA DISCONNECT TRANSCEIVER CABLE FROM BULKHEAD ASSEMBLY AND‘), 
UPLIT (sASCIZ'sNSA CONNECT LOOPBACK CONNECTOR TO BULKHEAD ASSEMBLY, THEN RETESTSN’ ), 
UPLIT (sASCIZ‘sNSA DISCONNECT BULKHEAD ASSEMBLY FROM DEQNA AND CONNECT’ ), 
UPLIT (sASCIZ‘sN#SA LOOPBACK CONNECTOR TO DEQNA, THEN RETESTSN’ ), 

UPLIT (sASCIZ‘sNSA CHECK FOR LOOSE WIRES IN A LOOPBACK CONNECTOR’), 
(SASCIZ'sSNSA OR USE DIFFERENT LOOPBACK CONNECTOR, THEN RETESTSN’ ), 
UPLIT (sASCIZ'sNSA REPLACE DEQNA, THEN RETESTSN’ ), 

UPLIT (sASCIZ‘sNSA REPLACE BULKHEAD CONNECTOR, THEN RETESTSN’ ), 


2315 MSG43 UPLIT (sASCIZ‘sNSA DISCONNECT TRANSCEIVER CABLE FROM TRANSCEIVER’ ), 
2316 MSG44 UPLIT (sASCIZ'sNSA AND CONNECT IT TO LOOPBACK CONNECTOR AND BULKHEAD ASSEMBL YSN’ ), 
2317 MSG45 UPLIT (sASCIZ'sSNSA REPLACE TRANSCEIVER CABLE, THEN RETESTSN’ ), 


UPLIT (sASCIZ'SNSA REPLACE TRANSCEIVER, THEN RETESTSN’ ), 
UPLIT (sASCIZ'sNSA REPLACE THE FUSE IF BAD, THEN RETESTSN’ ), 
UPLIT (sASCIZ'sNSA BAD RECEIVE DESCRIPTOR:'), 


2321 MSG49 UPLIT (sASCIZ'SNSA BAD TRANSMIT DESCRIPTOR:' ), 

2322 MSG5O UPLIT (sASCIZ‘#A ACTUAL = #068A EXPECTED = s068A INDEX = #D4SN‘), 
2323 MSG51 UPLIT (sASCIZ'SNSA BAD RECEIVE BUFFER:'), 

2324 MSGS2 UPLIT (#ASCIZ'SNSA DMA OPERATION TAKES TOO LONGEN’ 3, 


UPLIT (#ASCIZ'SNSA TOO MANY DEVICESSN’ ), 

UPLIT (s#ASCIZ'SNSA THERE WAS A POWER FAIL - WAITINGS#N’ ), 

UPLIT (#ASCIZ‘SN#A WAIT ABOUT #D28A MINUTE(S) -'), 

UPLIT (#ASCIZ‘SNSA WAIT ABOUT #D28A HOUR -'), 

UPLIT (sASCIZ‘#SA IF NO RESET, TYPE ANY CHARACTER TN EXIT FROM TESTSN' ) 

UPLIT (sASCIZ‘ SNSA = VALUE IS EQUAL TO ZERO SN‘), 

UPLIT CSASCIZ’ BNENBA- << occ ccc c ccc ccc cece enn n ncn sn eneses eens: sosesscecnaesscssssesesans sN'), 
MSG60 = UPLIT (#ASCIZ‘ SNA BAD CSR, BITS STUCK AT O:sN'), 

UPLIT (sASCIZ‘SNSA BAD CSR, BITS STUCK AT 1:SN'), 

UPLIT (s#ASCIZ‘ sNSA SOFTWARE RESET UNABLE TO CLEAR CSR STATIC BITS:#N’ ), 

UPLIT (sASCIZ‘SN#A BAD STATION ADDRESS CHECKSUM: ACT = s068A EXP = SO6SN' ), 

UPLIT (sASCIZ‘sNSA BAD STATION ADDRESS: '), 

UPLIT (s#ASCIZ'sNSA BAD DEQNA I/0 PAGE REGISTER: :8N'), 

(sASCIZ‘sNSA BAD CSR, EXPECTED RAL ( BIT S ) TO BE SET TO OsN’), 

UPLIT (sASCIZ‘sNSA BAD B/D PROM CHECKSUM: INDEX = s068A ACT = #0684 EXP = sO6sN'), 
UPLIT (sASCIZ‘sNSA B/D PROM CHECKSUM OFFSET = #068A ACT = 068A EXP = S068N' ), 
UPLIT (sASCIZ‘sNSA BAD INTERRUPT: ADR = #068A ACT LEV = #068A EXP LEV = #06S8N'), 
UPLIT (sASCIZ'sN#A REGISTER FAILED TO RESPOND AT ADDRESS: s06s8N'), 

UPLIT (s#ASCIZ‘sN#SA BAD TRANSMIT STATUS, TOO MANY COLLISIONS#N’ ); 
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SEQ 0025 
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DEFAULT HARDWARE P-TABLE S-Jul-1984 14:00:51 [MAZURCZYK .DEQNA)ZQNA1.BLI;2 (22) 
SSBTTL ‘DEFAULT HARDWARE P-TABLE’ 


BGNHW ( HP_TABLE ); 


+ 
+ 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE 
TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO 
THE STRUCTURE OF THE HARDWARE P-TABLES, AND IS USED AS A “TEMPLATE” 
FOR BUILDING THE P-TABLES. 


PLACE YOUR DEFAULT HARDWARE P-TABLE HERE. THE VALUES AND 
SIZE WILL BE USED AS A “TEMPLATE” FOR CREATING ACTUAL P-TABLE 
ENTRIES AND THE DEFAULT VALUES IN THE OPERATOR DIALOGUE. 
a P-TABLE BUILT AT RUNTIME IS STORED IN SUPERVISOR 
SPACE. 


GLOB 
ENDHW; 


AL 
DFSTBL : BLOCK ({ HWP_SIZE, WORD ) INITIAL ( #0'174440', #0'700' ); 
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SSBTTL ‘SOFTWARE P-TABLE’ 


+ 
+ 


THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
SET UP AT -“wimaincey TIME AND MAY BE VARIED BY THE OPERATOR 
AT RUN TIME. 


PLACE YOUR SOFTWARE P-TABLE HERE,USING GLOBAL OR OWN DECLARATIONS j 
THIS TABLE IS NOT OPTIONAL. THIS TABLE, UNLIKE THE HARDWARE TABLE, . 
WILL CONTAIN THE ACTUAL VALUES ENTERED BY THE OPERATOR. 


BGNSW ( SP_TABLE ); 


GLOBAL 
SWP_TIMER : WORD INITIAL ( NO ), ! NO SANITY TIMER TEST 
SWP_LBC : WORD INITIAL ( WO), ! NO LOOPBACK IN DEQNA 
SWP_TOUT_VAL : WORD INITIAL ( 3 ), ! TIMEOUT VALUE = 16 SEC. 
SWP_ILOOP : WORD INITIAL ( NO ), ! EXTERNAL LOOPBACK MODE 
SWP_BLOCK_MEM : WORD INITIAL ( YES ); ! BLOCK-MODE MEMORY PRESENT 


' 


ENDSW; 


SEQ 0026 
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ZQNAL CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 


v01.0 PROTECTION TABLE 5-Jul-1984 14:00:51 (MAZURCZYK .DEQNA)ZQNA1.BLI;2 
3 2396 1 S@SBTTL ‘PROTECTION TABLE’ 
is Soe 
; 2399 1 : THIS TABLE IS USED BY THE RUNTIME SERVICES TO PROTECT THE LOAD MEDIA. 
3 2400 1 : 
2 2401 1 : 1ST ARG = OFFSET INTO P-TABLE FOR CSR ADDRESS 
3 2402 1 H 2ND ARG = OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
; 2403 1 : 3RD ARG = OFFSET INTO P-TABLE FOR ORIVE NUMBER 
x 2404 1 : 
: 2405 1 : INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE. (COFFSET 
3 2406 1 : REFERS TO THE NUMBER OF BYTES FROM THE BEGINNING OF A PTABLE 
; 2407 1 $ ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 
5 2408 1 : ITEM DOES NOT APPLY, LEAVE ENTRY AS -1. WHEN THE RUNTIME 
; 2409 1 $ SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS CIF NOT 
: 2410 1 H SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 
: 2411 1 : IN THE XXDP+ MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 
: 2412 1 H LOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 
: 2413 1 H THE GPHARD. 
: 2414 1 $-- 
3 2415 1 
3 2416 1 BGNPROT (-1, -1. -1); 
; 2417 1 
8 2418 1 ENDPROT; 
3 2419 1 
3 2420 1 
Fy 2421 1 
: 2422 1 END 
Fy 2423 0 ELUDOM 
»TITLE ZQNA1 CZQNACO DEQNA FUNCTIONAL TEST 
-IDENT /VO1.0/ 
-ENABL AMA 
000000 -PSECT $sCODE$, RO 
000000 103 132 121 L$NAME::.ASCII /CZQ/ 
000003 116 101 040 -ASCII /NA / 
000 BYTE O 
000007 000 BYTE O 
000010 LSREV:: 
000010 103 eASCII /C/ 
000011 060 -ASCII /0/ 
000012 LSUNIT: : .WORD TSPTHV 
000014 000170 LSTIML::.WORD 0 
000016 L$HPCP::. L$HARD 
00002C L$SPCP::.WORD LS$SOFT 
000022 000210’ LS$HPTP::.WORD LS$HW 
000024 000220' L$SPTP::.WORD 
000026 000000G L$LADP::.WORD LS$LAST 
000030 000000 L$STA:: .WORD 
000032 000000 L$CO:: .WORD O 
000034 000000 LS$OTYP::.WORD O 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


LSAPT:: .WORD 
LS$OTP:: .WORD 


L$PRIO:: .WORD 
LSENVI::.WORD 
LSEXP1::.WORD 
LSMREV:: 
BYTE 
LSEF:: .WORD 
. WORD 
L$SPC:: .WORD 
LSDEVP::. WORD 
LSREPP:; .WORD 
L$EXP4::.WORD 
LSExXPS::.WORD 
L$AUT:: .WORD 
L$DUT:: .WORD 
L$LUN:: .WORD 
LSDESP:: .WORD 
L$LOAD: : .WORD 
LSETP:: .WORD 
L$ICP:: .WORD 
LSCCP:: .WORD 
LSACP:: .WORD 
LS$PRT:: .WORD 
LS$TEST::.WORD 
LS$OLY:: .WORD 
LS$HIME:: .WORD 
DSPCNT::.WORD 
LS$DISPATCH:: 
.WORD 
. WORD 
WORD 
WORD 
WORD 
.~WORD 
. WORD 
. WORD 
WORD 
WORD 
. WORD 
. WORD 
. WORD 
. WORD 
.WORD 
WORD 
WORD 
. WORD 
. WORD 
. WORD 
WORD 


ERRTYP:: .BLKW 
ERRNBR: : .BLKW 


C3 


5-Jul-1984 14:03:26 
5-Jul-1984 14:00:51 


$DISPATCH 


oooww oooro 


VAX-11 Bliss-16 V4.0-579 
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CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


000000C 


174440 
000700 


000001 


477777 
177777 
177777 


ERRMSG: : .BLKW 
ERRBLK: : .BLKW 
LSHWLEN: : 
. WORD 
OFSTBL::.WORD 
WORD 


LSNOHW: : .BLKW 
L$SWLEN:: 


5 D 
SWP. TIMER: : 

. WOR 
SWP .LBC:: 

WORD 
SWP.TOUT.VAL:: 

. WORD 
SwWP.ILOOP: : 

WORD 
SWP .BLOCK .MEM: : 

WORD 


LSNOSW: : .BLKW 
L$PROT:: .WORD 


D3 


5-Jul-1984 14:03:26 
5-Jul-1984 14:00:51 


1 
1 


<<L $NDHW-L $HWLEN>/2> 
-3340 
700 

1 


<<L$NDSW-L$SWLEN>/2> 


$PLIT$, RO. O 
/DEQ/ 

/NA / 
41/¢57>/0/ 
/ PAs 

/GE / 

/ADR/ 

/ / 

4 4<00><00> 
/INT/ 

/ERR/ 

/UPT/ 

4 VE/ 

/CTO/ 

/R AS 

/DR / 

4 4<00><Q0> 
700 / 

/YOU/ 

4 WAS 

/NT / 

410 # 

/TES/ 

/T S/ 

/ANI/ 

“TY / 

/TIM/ 


VAX-11 Bliss-16 V4.0-579 
{MAZURCZYK .DEQNA)ZQNA1.BLI;2 








CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


040 


P.AAD: 


P.AAE: 


P.AAF: 


P.AAG: 


P.AAH: 


E3 


5-Jul-1984 14:03:26 
5-Jul-1984 14:00:51 
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CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.AAI: 


P.AAJ: 


P.AAK: 


FS 


5-Jul-1984 14:03:26 
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/TAL/ 
7 ER/ 
/ROR/ 
/ DE/ 
/TEC/ 
/TED/ 
4 4<00><00> 
/8N8/ 
/NSA/ 
/ " 
/DEQ/ 
/NA / 
/ADD/ 
/RES/ 
7S: / 
/%06/ 
/8A,/ 
4 S/ 
/TAT/ 


/805/ 
/#N/<00> 
/8A / 


/ / 
/ / 
/ / 
/ / 
/ / 
/ # 
/ / 
/ / 
/ / 
/ / 


VAX-11 Bliss-16 V4.0-579 
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SEQ 003 
Page 


1 
31 
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G3 


SEQ 00 
ZQNA1L CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 Nag 32 
vo1.0 PROTECTION TABLE 5-Jul-1984 14:00:51 | [MAZURCZYK.DEQNAJZQNA1.BLI;2 (24) 
000601 124 040 104 .ASCII /T D/ 
000604 105 123 103 “ASCII /ESC/ 
000607 122 111 120 -ASCII /RIP/ 
000612 124 117 122 “ASCII /TOR/ 
000615 040 040 040 “ASCII /  / 
000620 040 122 103 “ASCII / RC/ 
000623 126 040 104 “ASCII /V D/ 
000626 105 123 103 .ASCII /ESC/ 
000631 122 111 120 “ASCII /RIP/ 
000634 124 117 122 “ASCII /TOR/ 
000637 040 045 116 “ASCII / sN/ 
000642 000 000 -ASCII <00><00> 
000644 045 101 040 P.AAL: .ASCII /#A / 
000647 040 040 040 “ASCII /  / 
000652 040 040 106 “ASCII / F/ 
000655 114 101 107 “ASCII /LAG/ 
000660 040 127 117 “ASCII / WO/ 
000663 122 104 040 “ASCII /RD / 
040 040 040 “ASCII /  / 
000671 040 040 040 ASCII s / 
(00674 040 040 040 Mn & # 
000677 040 040 040 ASCII / / 
000702 040 040 040 “ASCII /  / 
000705 040 040 045 “ASCII / #/ 
000710 117 066 045 “ASCII /068/ 
000713 101 040 040 “ASCII /A / 
000716 040 040 040 “ASCII /  / 
000721 040 040 040 “ASCII /  / 
000724 040 040 040 “ASCII /  / 
000727 040 045 117 ASCII / #0/ 
000732 066 045 116 “ASCII /6N/ 
000735 000 “ASCII <00> 
000725 045 101 040 P.AAM: ASCII /#A / 
000741 040 040 040 “ASCII /  / 
000744 040 040 110 “ASCII / H/ 
000747 111 107 110 “ASCII /IGH/ 
000752 040 117 122 ASCII / OR/ 
000755 104 105 122 “ASCII /DER/ 
000760 040 101 104 “ASCII / AD/ 
000763 104 122 040 “ASCII /OR / 
000766 102 111 124 ASCII /BIT/ 
000771 123 040 040 ASCII /S / 
000774 040 040 040 “ASCII / 
000777 040 040 045 “ASCII / #/ 
001002 117 066 045 “ASCII /068/ 
001005 101 040 040 “ASCII /A / 
001010 040 040 040 ‘ASCII / 
001013 040 040 040 Me a 
001016 040 040 040 “ASCII / / 
001021 040 045 117 ASCII / #0/ 
001024 066 045 116 “ASCII /696N/ 
001027 000 ASLII <00> 


001030 045 101 040 P.AAN: {ASCII /#A / 


001233 
001236 
001241 
001244 
001247 
001252 
001255 
001260 
001263 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.AAO: 


P.AAP: 


H3 


S-Jul-1984 14:03:26 
5-Jul-1984 14:00:51 


VAX-11 Bliss-16 V4.0-579 
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SEQ 0033 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.AAQ: 


P.AAR: 


P.AAS: 


-ASCII 
-ASCII 





Is 


5-Jul-1984 14:03:26 
5-Jul-1984 14:00:51 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNAJZQNA1.BLI;2 


061750 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.AAT: 


P.AAU: 


P.AAV: 


/%06/ 
/#N/<00> 
/8A / 
/BAD/ 
4 TR/ 
/ANS/ 
/MIT/ 
7 FLZ 
7AG / 
/WOR/ 
40: 7# 
/ACT/ 
fef 
/%06/ 
/8A / 
JEXP/ 
42zf/ 
/806/ 
/%N/<00> 
<00> 
/%A / 
/BAD/ 
4 TR/ 
7ANS/ 
/MIT/ 
4 ST/ 
ZATU/ 
7S W/ 
/ORD/ 
41:7 
/ AC/ 
7T =/ 
4 #0/ 
/6%A/ 
4 EX/ 


J3 


5-Jul-1984 14:03:26 
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SEQ 0035 
Page 35 
(24) 


KS 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 
PROTECTION TABLE S-Jul-1984 14:00:51 [MAZURCZYK . DENA ]ZQNA1 .BLI;2 


/P =/ 
/ #0/ 
/6%N/ 
<00><00> 
/8A / 
/BAD/ 
/ RE/ 
/CEI/ 
/VE / 
/FLA/ 
7G W/ 
/ORD/ 
4: As 
IG1 ¥ 
/= &/ 
/06%/ 
4A ES 
7XP / 
4= &/ 
/06%/ 
/N/<00> 
/#A / 
/BAD/ 
7 REZ 
/CEI/ 
/VE / 
/STA/ 
/TUS/ 
4 WO/ 
/RD / 
fis 2 
/ACT/ 
y a 
/%06/ 
/#A / 
ZEXP/ 
42f/ 
/%06/ 
/%N/<00> 
/HA / 
/BAD/ 
4 REZ 
/CEI/ 
/VE / 
/BUF / 
/FER/ 
/ LEZ 
/NGT/ 
JH: / 
/ACT/ 
4=f/ 
4%06/ 
002205 yom / 





002442 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.AAZ: 


P.ABA: 


P.ABB: 


P.ABC: 


S-Jul-1984 14:03:26 | VAX-11 Bliss-16 V4.0-579 ay omy 37 
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/06%/ 
/N/<00><00> 
/HA / 
/L00/ 
/PBA/ 
/CK / 
/PAC/ 
/KET/ 
4 UN/ 
7ABL/ 
7E T/ 
0 C/ 
/LEA/ 
/R C/ 
7A B/ 
4IT .f 
4 CS/ 
/R =/ 
4 #0/ 
/6%N/ 
<00»<00> e 
/HA / 
/CA / 
/BIT/ 
4 OK/ 
4, B/ 


002672 
002675 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ABD: 


P.ABE: 


P.ABF: 


/UT / 
/RI / 
/BIT/ 
/ IS/ 
4 NO/ 
/T O/ 
ia, # 
/CSR/ 
42zf/ 
/%06/ 
/%N/<00> 
/8A / 
/CA / 
/BIT/ 


40 O/ 
/#N/<00> 
<00> 
/HA / 
“XL / 
7AND/ 
4 RLZ 
re? 
/BIT/ 
4S 4/ 
4,5 7 


M3 
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SEQ 0038 


Page 


38 
(24) 


CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1984 14:03:26  VAX-11 Bliss-16 V4.0-57 nega Toy 
PROTECTION TABLE 5-Jul-1984 14:00:51  (MAZURCZYK-DEQNAJZQNAI.BLI;2 Peer oa) 


-ASCII /) T/ 
.ASCII /0 B/ 
-ASCII /E S/ 
-ASCII /ET / 
.ASCII /T0 / 
-ASCII /19N/ 
-ASCII <00><00> 
P.ABG: .ASCII /#A / 
-ASCII /RI / 
-ASCII /€ B/ 
-ASCII /IT / 
-ASCII /15 / 
.ASCII /) T/ 
.ASCII /0 B/ 
-ASCII /E S/ 
-ASCII /ET / 
-ASCII /T0 / 
-ASCII /1N/ 
-ASCII <00> 
-ASCII /#A / 
-ASCII /XI / 
-ASCII /¢€ B/ 
-ASCII /IT / 
-ASCII /7 )/ 
-ASCII / TO/ 
.ASCII / BE/ 
-ASCII / SE/ 
-ASCII /T T/ 
-ASCII /0 1/ 
-ASCII /#N/<00> 
.ASCII <00> 
-ASCII /#A / 
-ASCII /NI / 
-ASCII /C€ B/ 
-ASCII /IT / 
-ASCII /2 )/ 
-ASCII / TO/ 
-ASCII / BE/ 
-ASCII / SE/ 
-ASCII /T T/ 
-ASCII /0 1/ 
-ASCII /#N/<00> 
-ASCII <00> 
-ASCII /#A / 
-ASCII /NI / 
-ASCII /C€ B/ 
-ASCII /IT / 
-ASCII /2 )/ 
-ASCII / TO/ 
-ASCII / BE/ 
-ASCII / RE/ 
-ASCII /SET/ 
-ASCII / TO/ 





CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ABK: 


P.ABL: 


P. ABM: 


P. ABN: 


B4 


5-Jul-1984 14:03:26  VAX-11 Bliss-16 V4.0-579 Page 40 
5-Jul-1984 14:00:51  [(MAZURCZYK.DEQNAJZQNA1.BLI;2 (24) 


/ Os/ 
/N/<00><00> 
4A / 

/BAD/ 

4 CS/ 

sR, # 

ZEXP/ 

/ECT/ 
7ED/<00> 


/06%/ 
/N/<00><00> 
/@N8/ 
7A Us 
/NAB/ 
/LE / 
/T0 / 
/RES/ 
/ET / 
/DEQ/ 
/NA:/ 
4 AD/ 
/R: / 
/%06/ 
/aA / 
4 CS/ 
/R =/ 
4 &0/ 
/68N/ 
<00> 
/8NS/ 
JA Ws 
/AIT/ 
4 ABs 
/OUT/ 
4 #D/ 
428A/ 





CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ABO: 


P.ABP: 


P.ABQ: 


-ASCII 
-ASCII 


/ SE/ 
/CON/ 
/0(S/ 
4) -/ 
<00> 
/9N8/ 
ZA S/ 
/ANI/ 
“TY / 
/TIM/ 
ZER / 
/TIM/ 
ZED / 
/OUT/ 
4 AS/ 
4 EX/ 
/PEC/ 
/TED/ 
/ @N/ 
<00><00> 
/8N8/ 
7A N/ 
40 S/ 
/ANI/ 
/TY / 
/TIM/ 
ZER / 
ZINT/ 
ZERR/ 
JUPT/ 
/ DE/ 
/TEC/ 
/TEO/ 
4 @N/ 
<00><00> 
/8N8/ 
7A D0/ 
/ISC/ 
/ONN/ 
/ECT/ 
4 TR/ 
7ANS/ 
/CEI/ 
/VER/ 
4 CA/ 
/BLE/ 
/ FR/ 
40M / 
/BUL/ 
/KHE/ 
ZAD / 
/ASS/ 
7EMB/ 


C4 


55-Jul-1984 14:03:26 
5-Jul-1984 14:00:51 


VAX-11 Bliss-16 V4.0-579 
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D4 


—- CZQNACO DEGNA FUNCTIONAL TEST | 5-Jul-1984 14:03:26  VAX-11 Bliss-16 V4.0-579 wae Seog 
v01.0 PROTECTION TABLE 5-Jul-1984 14:00:51  [MAZURCZYK .DEGNA]ZQNA1.BLI;2 (24) 
040 ASCII /LY / 
104 “ASCII /AND/ 
-ASCII <00><00> 
045 P.ABR: .ASCII /sN#/ 
103 “ASCII /A C/ 
116 ASCII /ONN/ 
124 “ASCII /ECT/ 
117 “ASCII / LO/ 
102 “ASCII /0PB/ 
113 “ASCII /ACK/ 
117 “ASCII 7 CO/ 
105 “ASCII /NNE/ 
117 ASCII /CTO/ 
124 “ASCII /R T/ 
102 “ASCII /0 B/ 
113 “ASCII /ULK/ 
101 “ASCII /HEA/ 
101 “ASCII /0 A/ 
105 “ASCII /SSE/ 
114 “ASCII /MBL/ 
040 “ASCII /Y, / 
105 “ASCII /THE/ 
122 “ASCII /N R/ 
105 “ASCII /ETE/ 
045 “ASCII /ST#/ 
“ASCII /N/<00> 
045 P.ABS: ASCII /sNs/ 
104 “ASCII /A D/ 
103 “ASCII /ISC/ 
116 ASCII /ONN/ 
124 ASCII /ECT/ 
125 “ASCII / BU/ 
110 “ASCII /LKH/ 
104 ASCII /EAD/ 
123 ASCII / AS/ 
115 “ASCII /SEM/ 
131 “ASCII /BLY/ 
122 “ASCII / FR/ 
040 “ASCII 70M / 
121 ASCII /0EQ/ 
040 “ASCII /NA / 
104 “ASCII /AND/ 
117 “ASCII / CO/ 
105 “ASCII = /NNE/ 
000 SASCII /CT/<M0> 
“ASCII <00> 
045 P.ABT: .ASCII  /sNs/ 
114 “ASCII /A L/ 
120 “ASCII /00P/ 
103 “ASCII /BAC/ 
103 “ASCII /K C/ 
116 ASCII /ONN/ 


124 "ASCII /ECT/ 





CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ABU: 


P. ABV: 


P. ABW: 


/OR / 
470 / 
/DEQ/ 
/NA,/ 
/ TH/ 
ZEN / 
JRET/ 
/EST/ 
/9N/<00> 


E4 


5-Jul-1984 14:03:26 
5-Jul-1984 14:00:51 
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CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ABX 


P.ABY 


P ABZ 


F4 


5-Jul-1984 14:03:26 
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/HEN/ 
4 RE/ 
/TES/ 
/T#N/ 
<00> 
/9N8/ 
7A R/ 
ZEPL/ 
/ACE/ 
/ BU/ 
/LKH/ 
7EAD/ 
4 CO/ 
/NNE/ 
/CTO/ 
sR, 7/ 
/THE/ 
/N R/ 
/ETE/ 
/ST8/ 
/N/<00><00> 


7ER/<00> 
<00> 
/8N%/ 
7A As 
/ND / 
/CON/ 
/NEC/ 
/T I/ 
4T T/ 
70 L/ 
/00P/ 
/BAC/ 
/K C/ 
/ONN/ 
/ECT/ 
/OR / 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK ,DEQNA)ZQNA1.BLI;2 





CZQNACO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 





G4 


5-Jul-1984 14:03:26 
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005224 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ACD: 


P.ACE: 


P.ACF: 


P.ACG: 


PACH: 


H4 


S-Jul-1984 14:03:26 
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/9N8/ 
7A B/ 
7AD / 
/REC/ 
/EIV/ 
7E O/ 
/ESC/ 
/RIP? 
/TOR/ 
4:/<00><00> 
/9N8/ 
7A B/ 
ZAD / 
/TRA/ 
/NSM/ 
eat # 
/DES/ 
/CRI/ 
/PTO/ 
/R:/<00> 
4A / 
ZACT/ 
/UAL/ 
4/2zf/ 
/806/ 
/%A / 
/EXP/ 
JECT/ 
ZED / 
/= &/ 
/06%/ 
4A I/ 
/NDE/ 
4X =/ 
4 #0/ 
/48N/ 
<00><00> 


VAX-11 Bliss-16 V4.0-579 
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CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ACI: 


P.ACJ: 


P.ACK: 


P.ACL: 


P.ACM: 


14 


5-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 Page 47 
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005714 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ACN: 


P.ACO: 


P.ACP: 


J4 


5-Jul-1984 14:03:26 
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40 #/ 
/N/<00><00> 
/8N8/ 
/NSA/ 
fo---/ 
f---/ 
f---/ 
fo--/ 
4---/ 
f---/ 
/---/ 
4---/ 
J---/ 
J---/ 
f---/ 
f---/ 
f---/ 
f---/ 
fe---/ 
/---/ 
fo--/ 
f---/ 
/---/ 
f---/ 
/---/ 
/--%/ 
/N/<00> 
/%N8/ 


VAX-11 Bliss-16 V4.0-579 
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CZQNACO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


040 102 
104 040 
123 122 
040 102 
124 123 
123 124 
103 113 
101 124 
060 072 
116 000 
116 045 P.ACQ: 
040 102 
104 040 
123 122 
040 102 
124 123 
123 124 
103 113 
101 124 
061 072 
116 000 
116 045 P.ACR: 
040 123 
106 124 
101 122 
040 122 
123 105 
040 125 
101 102 
105 040 
117 040 
114 105 
122 040 
123 122 
123 124 
124 111 
040 102 
124 123 
045 116 
000 

116 045 P.ACS: 
040 102 
104 040 
124 101 
111 117 
040 101 
104 122 
123 123 
103 110 
103 113 
125 115 


K4 
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CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ACT: 


P.ACU: 


P.ACV: 


P.ACW: 


L4 
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4: As 
/CT / 

/= &/ 
/06%/ 

7A Es 
7XP / 

/= %/ 
/06%/ 
/N/<00><00> 
/tN8/ 
7A Bs 
7AD / 
/STA/ 
/TIO/ 
/N A/ 
/DDR/ 
/ESS/ 

4: 4<00> 
<00> 
/$N8/ 
7A B/ 
ZAD / 
/DEQ/ 
/NA / 
41/<57>/0/ 
/ PAS 
/GE / 
/REG/ 
/IST/ 
ZER:/ 
/%N/<00> 
/%N%/ 
7A Bs 
ZAD / 
/CSR/ 

f, €# 
/XPE/ 
/CTE/ 
/0 R/ 

A. Cs 

/ BIZ 

7T S/ 
> 
/T0 / 
/BE / 
/SET/ 

4 TO/ 

4 O6/ 
/N/<00><00> 
/8N8/ 

7A B/ 
4AD / 
/B/<57>/D/ 
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M4 


SEQ 0051 
-Jul-1984 14:03:26 VAX-11 Bliss-16 V4.0-579 Page 51 
se A pallet Ss 3 Jul -1984 14:00:51  [MAZURCZYK.DEQNA)ZQNA1.BLI;2 (24) 


. ASCII 





007033 


000000 
000000 


000200 
000400 
004400 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


P.ACZ: .ASCII 


P.ADA: .ASCII 


P 
RCV.D.LIST: 
XMIT.D.LIST: 


.-BLKW 
RCV.BUFFER:: 
BLKW 


-BL 
XMIT .BUFFER: 


SECT 
BLKW 


N4 
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/806/ 
/8A / 
JEXP/ 
/ LE/ 
/V =/ 
4 #0/ 
/68N/ 
<00> 

/8N%/ 
7A R/ 
/EGI/ 
/STE/ 
/R FS 
/AIL/ 
7ED / 
7T0 / 
/RES/ 


~ /PON/ 


70 A/ 
/T As 
/ODR/ 
/ESS/ 
i: 
/%06/ 
/#N/<00> 
<00> 
/8N%/ 
7A Bs 
7AD / 
/TRA/ 
/NSM/ 
4IT # 
/STA/ 
/TUS/ 
4, 4 
700 / 
/MAN/ 
4Y C/ 
/OLL/ 
/ISI/ 
/ONS/ 
/#N/<00> 


$GLOB$, OD 
100 
100 
2000 
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SEQ 0052 
Page 52 
(24) 


ZQNA1 
vo01.0 


010400 
010426 
011426 
011446 
011462 
011472 
011472 
011473 
011474 
011475 


011476 
011477 


epepehehe aM HHT Hitt dah S¥SenySs 
$ NNN NNN NNN VUUUUT UI UO fo fo fo fo fo 3 i KeMmu~s 
NNN NNT UU fof fy NOw Suit ~~ 


CZQNACO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


a BLKW 
PHYS.ADR:: 


-BLKW 
SETUP .BUFFER:; 
-BLK 


wW 

IOP. TABLE: : 
-BLKW 

ETH. STATION.ADR: 


-BLK 
STATION.ADR:: 

-BLKW 
PTRN.TABLE:: 


BS 


5-Jul-1984 14:03:26  VAX-11 Bliss-16 V4.0-579 Page 53 
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011626 


CZQNACO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


"BYTE 
"BYTE 
"BYTE 


“BYTE 
.BYTE 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
.BYT 

-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


C5 


5-Jul-1984 14:03:26 
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ZQNA1 
| V01.0 


011627 
011630 
011631 
011632 
011633 
011634 
011635 
011636 
011637 
011640 
011641 
011642 
011643 
011644 
011645 
011646 
011647 
011650 
011651 
011652 
011653 
011654 
011655 
011656 
011657 
011660 
011661 
011662 
011663 
011664 
011665 
011666 
011667 
011670 
011671 
011672 
011672 
011674 
011676 
011700 
011702 
011704 
011706 
011710 
911712 
011714 
011716 
011720 
011722 
011724 
011726 
011730 
011732 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


TO016:: 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


BD.PROM.DESCR:: 


. WORD 


DS 
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NOUe Swe oO 


- 100000 


- 100000 
RCV.BUFFER 
-2000 

0 

0 

- 100000 

- 100000 
XMIT.BUFFER 
-2000 

ie) 

0 

- 100000 


20000 
0 


VAX-11 Bliss-16 V4.0-579 
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ZQNA1 
vo01.0 


011732 


CZQNACO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


5-Jul-1984 14:03:26 
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- 100000 

- 77600 

XMI1T .BUFFER 
-1 


0 

0 

- 100000 
-77500 
XMIT. BUFFER 
-2 

0 

0 

- 100000 
-77700 
XMIT.BUFFER+2 
-1 

0 

0 

- 100000 


-60000 
XMIT.BUFFER+4 
-1 

0 

0 

- 100000 


20000 
XMIT.D.LIST+74 
i 


0 
0 
- 100000 


- 100000 
et eee 


0 
0 
- 100000 


-60000 
TARGET .ADR+162 
-3 


0 

0 

- 100000 
20000 


- 100000 

- 100000 
XMIT.BUFFER 
-1 

0 


0 
- 100000 
- 100000 
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ZQNA1 
vo1.0 


012102 
012104 
012106 
012110 
012112 
012114 
012116 
012120 
012122 
012124 
012126 
012130 
012132 
012134 
012136 
012140 
012142 
012144 
012146 
012150 
012152 
012154 
012156 
012160 
012162 
012166 
012166 
012170 
012172 
012174 
012176 
012200 
012202 
012204 
012206 
012210 
012212 
012214 
012216 
012220 
012222 
012224 
012226 
012230 
012232 
012234 
012236 
012240 
012242 
012244 
012246 
012250 
012252 


CZQNACO DEQNA FUNCTIONAL TEST 
PROTECTION TABLE 


RD13:: 


ra 
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XMIT .BUFFER+2 
_ 


0 
- 100000 


- 100000 

XMIT .BUFFER+400 
-1 

0 

0 

- 100000 


40000 
ao 


0 
0 
- 100000 


-60000 
— 


- 100000 

- 100000 
eee 
0 


0 
- 100000 


- 100000 

RCV .BUFFER+2 
-76 

0 

0 

- 100000 


- 100000 

= ‘pgpaatsiaitiashe 
0 

0 

- 100000 


- 100000 
laa 
0 

0 

- 100000 


- 100000 
RCV.BUFFER+204 


VAX-11 Bliss-16 V4.0-579 
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SEQ 
P 


00s 
age 


7 
7 
(24) 





012402 
012404 
012406 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


HEEEEELEEEE EEE ETERS EEEEE EEE 


- WORD 


.BLKW 
XBUF .LENGTH: : 
-BLKW 
RBUF .LENGTH:: 
.BLKW 
INTERRUPT .FLG:: 
-BLKW 
DEQNA.NO:: 


G5 
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-74 

0 

t¢) 

- 100000 ‘ 


- 100000 
wy -BUFFER+374 


0 
0 
- 100000 


-40000 
RCV.0.LIST +124 


re) 
0 
- 100000 


- 100000 

»'y -BUFFER+400 
0 

ie) 

- 100000 

- 100000 

> - BUFFER +406 


0 
0 
- 100000 


- 100000 

RCV .BUFFER+S76 
“1 

0 

0 

- 100000 

_— 


1 
1 
1 
1 
1 
1 
1 
1 
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ZQNA1 
vo1.0 


012410 
012412 
012414 
012416 
012420 
012422 
012424 
012426 
012430 
012432 
012434 
012436 


012440 
012442 
012444 
012446 
012450 
012452 
012454 
012456 
012460 
012462 
012464 
012466 
012470 
012472 
012474 
012475 
012476 
012477 
012500 
012502 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


-BLKW 
COUNTER: ; 
LKW 


.B 
UP .COUNTER: : 
.-BLKW 
DOWN. COUNTER: : 
KW 


ERR.FLAG:: : 

ERR.COUNT: : 
.WOR 

TMP .IOP.ADR:: 
BLKW 


TMP .REG.DATA:: 

-BLKW 
TEMP1:: .6LKW 
TEMP2:: .BLKW 
TEMP3:: .BLKW 
TEMP4:: .BLKW 
TEMPS:: .BLKW 
TEMP6:: .BLKW 
TEMP7:: .BLKW 
TEMP8:: .BLKW 
TEMP9:: .BLKW 
Pl:: .BLKW 


Pe:: -BLKW 
P3:: .BLKW 
P4::; .BLKW 
PS:: .BLKW 
TBYTE1:: .BLKB 
TBYTE2:: .BLKB 
TBYTE3:: .BLKB 
TBYTE4:: .BLKB 
TADR1:: .BLKW 
TADR2:: .BLKW 
.GLOBL 
GLOBL 
.GLOBL 
.GLOBL 
»GLOBL 
.~GLOBL 


ee el ol el eel el ol ed oe od od ok ed dd ee eee > ee > ee > ee > oe 


L$SOFT, TSPTHV, L$RPT, LS$INIT 


H5 


S-Jul-1984 14 


03:26 


5-Jul-1984 14:00:51 
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LS$CLEAN, L$LAST, L$HARD, L$DVTYP 


L$DESC, L$0U, L$AU, 
T2, 73, T4, TS, T6, 
T10, T11, Tle, 113, 
T17, 718, 719, T20, Tel 


T14, T15, 116 


ZQNA1 
vo1.0 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


BIT15== 
BIT14== 
BIT13== 
BIT12== 
BIT11== 
BIT10== 
BITO9== 
BITO8== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITO3== 
BITO2== 
BITO1== 
BITOO== 
BIT9== 
BIT8== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3== 
BIT2== 
BITi== 
BITO== 
EF .START== 
EF .RESTART== 
EF .CONTINUE== 
EF .NEW== 
EF .PWR== 
PRIO7== 
PRIO6== 
PRIOS== 
PRIO4== 
PRIO3== 
PRIO2== 
PRIO1L== 
PRIOO== 
EVL== 
LOT== 
ADR== 
i0U== 
ISR== 
UAM== 
BOE== 
PNT== 
PRI== 
IXE== 
IBE == 
IER== 


Is 


5-Jul-1984 14:03:26 
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([MAZURCZYK .DEQNA)ZQNA1.BLI;2 


ZQNA1 
vO1.0 


003252’ 
003336‘ 
003400’ 
003454' 
003530’ 
003626' 
003732' 


CZQNACO DEQNA FUNCTIONAL TEST 


PROTECTION TABLE 


LOE== 
HOE = = 
LSERRTBL== 
L$SwWe= 
L$HW== 
L$DEPO== 
DESCR.LIST== 
DATA.BUFFER== 
QSTO1== 
QSTO2== 
QSTO3== 
QSTO4== 
QSTOS== 
QST06== 
QSTO7== 
MSGOO== 
MSGO1== 
MSGO2== 
MSGO3== 
MSGO4== 
MSGOS== 
MSG06== 
MSGO7== 
MSGO8== 
MSGO9== 
MSG10== 
MSG11== 
MSG12== 
MSG13== 
MSG14== 
MSG15== 
MSG16== 
MSG17== 
MSG18== 
MSG19== 
MSG20== 
MSG21== 
MSG22== 
MSG23== 
MSG24== 
MSG25== 
MSG26== 
MSG27== 
MSG28== 
MSG29== 
MSG30== 
MSG31== 
MSG32== 
MSG33== 
MSG34== 
MSG35== 
MSG36== 
MSG37== 





J5 
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LS$SWLEN+¢2 
LSHWLEN+2 
LSREV+l 
RCV.D.LIST 
RCV.BUFFER 
P.AAA 
P.AAB 


KS 
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v01.0 PROTECTION TABLE 5-Jul-1984 14:00:51 ([MAZURCZYK .DEQNA]ZQNA1.BLI;2 (24) 
004024' MSG38== P.ABT 
004104' MSG39== P.ABU 
004170' MSG40== P.ABV 
004260' MSG41== P.ABW 
004322' MSG42=2= P.ABX 
004402' MSG43== P.ABY 
004466' MSG44== P.ABZ 
004570’ MSG45=<= P.ACA 
004646' MSG462=2 P.ACB 
004716' MSG47== P.ACC 
004772’ MSG48== P.ACD 
005030’ MSG49== P.ACE 
005066' MSG50== P.ACF 
005150’ MSG5S1== P.ACG 
005202' MSGS2== P.AGH 
005246' MSG53== P.ACI 
005276' MSG54== P.ACJ 
005346' MSG55== P.ACK 
005410' MSG56== P.ACL 
005446' MSG57== P.ACM 
005536' MSG58== P.ACN 
005602’ MSG59== P.ACO 
005714' MSG60== P.ACP 
005756' MSG61== P.ACQ 
006020' MSG62== P.ACR 
006110 MSG63== P.ACS 
006204' MSG64== P.ACT 
006240' MSG65== P.ACU 
006304' MSG66== P.ACV 
006372' MSG67== P.ACW 
006474' MSG68== P.ACX 
006572' MSG69== P.ACY ‘ 
006672' MSG70== P.ACZ 
006756' MSG71== P.ADA 
000210' HP . TABLE == LSHWLEN+2 
000220' SP. TABLE== L$SWLEN+2 


PSECT SUMMARY 


F Psect Name Words Attributes 

3 $CODE$ 81 RO, F « th. PELs CON 
$ $GLOB$ 2722 Ru. BD « LOi~ REL, CON 
s $PLIT$ 1807 nO. BO » GL, REL, CON 


Library Statistics 


ei Oe ee Ya ee ae eeeeeets Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


head 


ZQNA1 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:03:26 
v01.0 PROTECTION TABLE 5-Jul-1984 14:00:51 
: DISK$USER2: [MAZURCZYK .DEQNA JQNALIB.L1€&;2 
3 223 88 39 14 
3 COMMAND QUALIFIERS 
: BLISS/PDP11 ZQNA1.BLI/LIST=ZQNAL.LIS/OBJECT=ZQNA1 .OBJ/SOURCE =PAGE :53 

Size: 0 code + 4610 data words 

Run Time: 00:24.1 


Elapsed Time: 01:02.2 
Lines/CPU Min: 6042 
Lexemes/CPU-Min: 38443 
Memory Used: 236 pages 
Compi ation Complete 


VAX-11 Bliss-16 V4.0-579 
{[MAZURCZYK .DEQNA)ZQNA1.BLI;2 


00:00.1 


Pree erOOOCCO 


MS 
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S-Jul-1984 14:01:26 (MAZURCZYK .DEQNA JZQNA2 .BLI;2 


MODULE ZQNA2 ag Cae FUNCTIONAL TEST’ 
ADDRESSING_MODE( ABSOLUTE ) 

SSBTTL ‘PROGRAM INIT MODULE ' 

BEGIN 


LIBRARY ‘QNALIB’; ! QNALIB LIBRARY 
REQUIRE ‘BLSMAC.REQ’; ! DIAGNOSTIC SUPERVISOR LIBRARY 


ee pe ee ee ee ee te pe pe 


NS 
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EXTERNAL DECLARATIONS S-Jul-1984 14:01:26 


SSBTTL ‘EXTERNAL DECLARATIONS’ 
!<BLF /FORMAT> 


PSECT 
CODE = AASCODES; 
FORWARD ROUTINE 
NXM_INT : L$ISR NOVALUE; 


EXTERNAL ROUTINE 
RESET_DEQNA : NOVALUE; 


VAX-11 Bliss-16 V4.0-579 
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Pe ee ee ee be ee ee ee ee Pe ee he he he be be he he be be be ee ee pe fe pe pe fe pe pe ee ee ee ee ee 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:04:31 
EXTERNAL DECLARATIONS S-Jul-1984 14:01:26 
EXTERNAL 


COMMUNICATION AREA DECLARATIONS 


IOP _TABLE : VECTOR [ 8, WORD }, 


HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK . DEQNA JZQNA2.BLI;2 


HWP_TABLE : REF BLOCK [ HWP_SIZE, WORD }) FIELD ( HWP_FIELDS ), 
SWP_TABLE : REF BLOCK [ SWP_SIZE, WORD ) FIELD ( SWP_FIELDS ), 
INTERRUPT _FLG : WORD, ! 1 = INTERRUPT OCCURED 
REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 

IOP _DATA : REF REG_STR FIELD ( IOP_FIELDS ), 

GET_ADR : REF ADR_STR FIELD ( IOP_FIELOS ), 


TEMPORARY STORAGE DATA DECLARATIONS 


TMP _IOP_ADR : WORD, ! I/0 PAGE REGISTER 
TMP _REG_DATA : WORD, ! I/0 PAGE REG CONTE 
TEMP1 : WORD, § TEMPORARY STORAGE 
TEMP2 : WORD, ! TEMPORARY STORAGE 
TEMPS : WORD, $ TEMPORARY STORAGE 
TEMP4 : WORD, § TEMPORARY STORAGE 
TEMPS : WORD, ! TEMPORARY STORAGE 
TEMP6 : WORD, ! TEMPORARY STORAGE 
TEMP7 : WORD, ! TEMPORARY STORAGE 
TEMPS : WORD, § TEMPORARY STORAGE 
TEMPS : WORD, ! TEMPORARY STORAGE 


QUESTIONS AND ERROR MESSAGEES DECLARED EXTERNALLY 


QSTO1, QSTO2, QSTO3, QSTO4, QSTOS, QSTO06, QSTO7, MSGS4; 


ADDRESS 
NTS 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 


* > ee be pe he ee he ee he ee ee 


C6 
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CZQNACO DEQNA FUNCTIONAL TEST 
TYPE AND DESCRIPTION 
SSBTTL ‘TYPE AND DESCRIPTION’ 


J 
g NAMES OF DEVICES SUPPORTED BY PROGRAM 
a) 


‘ 
2 TEST DESCRIPTION 
’ 


DESCRIPT (#ASCIZ‘DEQNA FUNCTIONAL TEST’); 


VAX-11 Bliss-16 V4.0-579 
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ee @¢ oe @e Ge Ge Ge Gt Ge Gs Ge GH Ge Gt Ge Ge Ge Ge Ge Ge Ge GF 
Po oo ee ee ee he he be he ee pe be be he ee he he be pe 


D6 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 1 
HARDWARE PARAMETER CODING SECTION S-Jul-19864 1 


SSBTTL ‘HARDWARE PARAMETER CODING SECTION’ 


&hb 


> 
> 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


USED IN THIS SECTION ARE “GPRMD”, “GPRMA 


e 
* 


BGNHRD 

GPRMA CQSTO1, #0'0', 0, #0'174440', #0'174460', YES, 1); 
GPRMA (QSTO2, #0'2'. 0, #0'700',  #O'704', ° YES. 1); 
ENDHRD ; 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEQNA JZQNA2.BLI;2 


THIS CODE IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR 
FOR DEVICE INFORMATION TO PUT IN THE P-TABLE. THIS CODE IS USED 
IN CONJUNCTION WITH THE DEFAULT P-TABLE _ THE MACROS 


1/0 PAGE ADDRESS ? 
INTERRUPT VECTOR ADDR ? 


< 
°o 
~ 


Oe be ee ee ee ee he ee ee ee ee bee be ee ee ee pe pe 


E6 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 
SOFTWARE PARAMETER CODING SECTION S-Jul-1984 14:01:26 (MAZURCZYK .DEQNA JZQNA2.BLI;2 


SSBTTL ‘SOFTWARE PARAMETER CODING SECTION’ 


* 
. 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSFT; 
GPRML ( QSTO3, #0'O’, -1, YES, 1); ! DO YOU WANT TO TEST SANITY TIMER ? 
XFERF CNOTIMER); 
GPRMD ( QsTos, #0'4', DO, -l, 0, Te YES, 1); 

! SANITY TIMER TIME-OUT VALUE ? 
$LCNOTIMER); 


EXTERNAL LOOPBACK MODE ? 
SYSTEM HAS BLOCK-MODE MEMORY ? 
LOOPBACK CONNECTOR IN DEQNA ? 


GPRML ( QSTO6, #0'6', -1, YES. 1); 
GPRML ¢ QSTO7, #0' 10' ° -l, YES, 1); 
GPRML ( QST04, #0'2' ° -l, Yes, 1); 


ENDSFT; 


SEQ 0070 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 Page 7 
REPORT CODING SECTION 5-Jul-1984 14:01:26 {[MAZURCZYK .DEQNA )ZQNA2.BLI;2 (7) 


SSBTTL ‘REPORT CODING SECTION’ 


ot 


+e 


THE REPORT CODING SECTION CONTAINS THE 
“PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


THIS SECTION CONTAINS THE CODE FOR PRINTING 

STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC. IT iS 
EXECUTED BY THE OPERATOR COMMAND “PRINT” OR BY THE MACRO CALL 
“DORPT”. USE THE PRINTS MACRO TC PRINT THE INFORMATION. 

USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. IT IS 
THE PROGRAMMER'S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE 
FORM AND CONTENT OF THE STATISTICS. 


BGNRPT; 
TEMP1 = 1; 
ENDRPT; 


ee es Ge Ge Ge Ge Ge Gt Ge Ge Gt Ge Ge Ge Ge Gt Ge Gt Ge GF Ge Ge 


MM 10 10 pe 


ZQNA2 CZQNACO DEQNA FUNCTIONAL TEST 
aaa 


$CODE$, RO 


/DEQ/ 
/NA/<57> 
/M75/ 
/04/<00> 


. 2 
L$DESC::. /DEQ/ 
/FUN/ 
/CTI/ 
/ONA/ 
A. Ti 
/EST/ 
<00> 
2 


eee eee 
1 


QSTOl 
-3340 
-3320 
G’ses:s 1931 
. WOF aQsTo2 


LSDvTYP:: 


LSHROLN: : 
GP$i:: 





G6 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 
REPORT CODING SECTION S-Jul-1984 14:01:26 (MAZURCZYK . DEQNA JZQNA2.BLI;2 


000700 ‘ 700 
000704 s 704 
LSNDHRD: : 


. 1 
000000C LSSFTLN: : 

<< <L $NDSFT-L$SFTLN>/2>-1> 
000130 GP$3:: 30 


1 
000000G QsTo3 
177777 -1 


$NOTIMER 
<<<<$LNOTIMER- $NOTIMER> #400>+4>+40> 
002052 0S2 
000000G 


177777 
000000 
000007 
001004 


003130 GPS$S:: 
000000G 


177777 
004130 GPS$6:: 
000000G 


177777 
001130 GP$7:: 


000000G 
177777 


L$NDSFT: 


RESET.DEQNA, IOP.TABLE, HWP. TABLE 
SWP. TABLE, INTERRUPT.FLG, REG.ADR 
IOP .DATA, GET.ADR, TMP .IOP.ADR 
TMP .REG.DATA, TEMP1, TEMP2, TEMPS 
TEMP4, TEMPS, TEMP6, TEMP7, TEMPS 
TEMP9, QSTO1, QSTO2, QSTO3, QSTO4 
QSTOS, QSTO6, QSTO7, MSG54 


BIT15== 
BIT14== 
BIT13-= 
BIT12== 
BIT11== 
BIT10== 
BITO9== 
BITO8== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITO3== 





ZQNA2 
v01.0 


000000 


000000 012737 
000006 000207 


; Routine Size: 
; Maximum stack 


CZQNACO DEQNA FUNCTIONAL TEST 


REPORT CODING SECTION 


000001 000000G 


4 words, 
depth per invocation: 


Routine Base: 
0 words 


BITO2== 
BITO1== 
BITOO== 
BIT9== 
BIT8-= 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3== 
BIT2== 
BITi== 
BITO== 
EF .START== 
EF .RESTART== 
EF .CONTINUE== 
EF .NEW== 
EF .PWR== 
PRIO7== 
PRIO6== 
PRIOS== 
PRIO4== 
PRIO3== 
PRIO2== 
PRIO1== 
PRIOO== 
EVL== 
LOT== 
ADR== 
I0U== 
ISR== 
UAM== 
BOE == 
PNT == 
PRI== 
IXE== 
IBE== 
IER== 
LOE== 
HOE = = 
L$HARD== 
L$SOFT== 


» SBTTL 
-PSECT 


LRPT: MOV 
RTS 


H6 


S-Jul-1984 14:04:31 
S-Jul-1984 14:01:26 


L$HRDLN+2 
L$SFTILN+¢2 


LRPT REPORT CODING SECTION 
AASCODE$, RO 


01, TEMP1 
PC 


AASCODE$ + 0000 


VAX-11 Bliss-16 V4.0-579 


([MAZURCZYK .DEQNA )ZQNA2.BLI;2 


1641 
1619 


16 


ZQNA2 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:04:31 
vo01.0 REPORT CODING SECTION 5-Jul-1984 14:01:26 


-SBTTL LSRPT —— CODING SECTION 


000000 004737 000000’ L$RPT:: JSR PC,.LRP 
000004 104425 TRAP 25 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: AASCODES + 0010 


; Maximum stack depth per invocation: 2 words 


oe ee Ge oe 
a 
ZF 
ou 

pepe 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA ]ZQNA2.BLI;2 


SEQ 0073 


1641 


J6 





"THERE WAS POWER FAILURE - WAITING” 
WAIT APPROX. 60 SECONDS 


BEGIN 
PRINTF ( MSG54 ); 


ee cone FROM O TO 60 DO 
DELAY_MULT = 10000; 
DELAY ( .DELAY “MULT); 


1692 BREAK; ' BREAK FOR APT 
1693 END; 

1694 END; 

1695 

1696 IF READEF CEF_START) ' IS THIS A START ? 
1697 THEN 


EGIN- 
START_;LAG = TRUE; 
3 


ZQNA2] CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 Page 11 
v01.0 INITIALIZE SECTION 55-Jul-1984 14:01:26 ([MAZURCZYK .DEQNAJZQNA2.BLI;2 (8) 
: 1648 1 *@SBTTL ‘INITIALIZE SECTION’ 
: 1649 1 
3 1650 1 See 
3 1651 1 H THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3 1652 1 ! AT THE BEGINNING OF EACH PASS. 
1653 1 $ 
: 1654 1 $ THE INITIALIZE CODE IS EXECUTED UNDER FIVE yrs ie THERE 
3 1655 1 $ ARE SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 
: 1656 1 : DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 
: 1657 1 H PLACE. THE EVENT FLAGS ARE READ USING THE "“READEF” MACRO. 
: 1658 1 $ THE CONDITIONS UNDER WHICH THE INIT CODE IS EXECUTED AND THE 
: 1659 1 : CORRRESPONDING EVENT FLAGS ARE: 
3 1660 1 $ START COMMAND EF .START 
; 1661 1 $ RESTART COMMAND EF .RESTART 
3 1662 1 H CONTINUE COMMAND EF . CONTINUE 
: 1663 1 H POWERDOWN/POWERUP EF .PWR 
: 1664 1 H NEW PASS EF .NEW 
F 1665 1 : EXAMPLE OF -Sapend FLAG USE: 
3 1666 1 H IF READEFCEF. START) THEN 
3 1667 1 $ STAR T_FLAG = 1; 
3 1668 1 : DURING THE INIT CODE, USE THE “GPHARD” MACRO TO OBTAIN P-TABLE 
8 1669 1 : INFORMATION FOR DEVICE TESTING. GET GNE UNIT'S INFORMATION IF 
Fy 1670 1 H THIS IS A SEQUENTIAL DIAGNOSTIC. NUMBER OF UNITS AVAILABLE IS IN 
Fy 1671 1 H A HEADER LOCATION: “L$UNIT”. 
3 1672 1 !-- 
F 1673 1 
3 1674 2 BGNINIT; 
3 1675 2 
3 1676 2 LOCAL 
3 1677 2 START FLAG, * SET IF THIS PASS IS A START 
Fy ths : DELAY _MULT; § CONTAINS DELAY FACTOR 
$ 
Fy 1680 2 SETPRI (PRIO7); ' PRIORITY 7 - NO INTERRUPTS ALLOWED 
Fy ot : START_FLAG = CLEAR_FLG; ' CLEAR FLAG BEFORE TESTING IT 
3 1683 2 IF READEF CEF_PWR) ' ARE WE HERE BECAUSE OF POWER FAIL? 
s 1684 2 THEN 
: 1685 3 
3 3 
Fy 3 
H 3 
H 4 
H 4 
3 4 
: 4 
FH} 3 
H 2 
Fy 2 
A 2 
3 2 
$ 3 
s 3 
F 2 





KPUMNWASUUUPS HSS SSS PWWWWWWWWWWW wf fo fn fot 


012702. 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 
INITIALIZE SECTION S-Jul-1984 14:01:26 ([MAZURCZYK .DEQNA JZQNA2.BLI;2 


CLEAR HARDWARE P-TABLE ON A START BEFORE DOING THE GPHARDS 


IF .START_FLAG OR READEF CEF_NEW) OR READEF CEF CONTINUE) 
THEN ! IF THIS IS A START 
BEGIN 


LOCAL TABLE_POINTER; 


INCR INDEX FROM O TO HWP_SIZE BY 2 DO ! ZERO OUT THE TABLES 
CHWP_TABLE + . INDEX) = 0; 


See 
g GET BASE ADDRESS OF HARDWARE P-TABLE AND DEQNA I/0 PAGE 


IF —" ( 0, TABLE_POINTER ) NEQU O ! GET P-TABLE ADDRESS 


-HWP_TABLE ( ADDR ]; 
. TABLE _POINTER; ' SAVE HW P-TABLE ADDRESS 
-HWP_TABLE [ ADDR ]; * SAVE I/O PAGE BASE ADDRESS 
-HWP_TABLE [ ADDR ]; ! SAVE I/0 PAGE BASE ADDRESS 
MP_IOP_ADR = .HWP_TABLE [ ADDR ]; 
INCR INDEX FROM O TO 7 DO 
BEGIN 
IOP_TABLE { .INDEX ] = .TMP_IOF_ADR; 
TMP_IOP_ADR = .TMP_IOP_ADR + 2; 
END; 
END; 
RETURN; 
ENDINIT; 


LS$OLY 


. LINIT INITIALIZE SECTION 
000000G ¢ R1, $SAVE4 


000340 


START .FLAG 
000034 


000000G 
000001 


000075 


012703 
010301 


; Routine Size: 
; Maximum stack depth per invocation: 


CZQNACO DEQNA FUNCTIONAL TEST 


INITIALIZE SECTION 


023420 


000000G 
000004 


88 words, 


1$: 
2s: 


3$: 
4$: 
S$: 


6$: 


7$: 


8$: 
9$: 


10$; 


11$: 


Routine Base: 


10 words 


L6 


5-Jul-1984 14:04:31 
5-Jul-1984 14:01:26 


#23420 ,R3 
R3,R1 


$ 
@HWP . TABLE, IOP .DATA 
RO, HWP. TABLE 
(RO),RO 
RO,REG.ADR 
RO,GET.ADR 
ee 


wii 


AASCODES + 0020 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA)ZQNA2.BLI;2 


*,DELAY.MULT 
DELAY .MULT, $$TMP2 


*,$$TMP1 
$$TMP 


$$TMP1,¢ 
$$TMP2 


COUNT, « 


*,START.FLAG 
START .FLAG 


INDEX 

*#( INDEX) 
#, INDEX 
INDEX, * 


TABLE .POINTER 


TABLE .POINTER,«# 
HWP. TABLE, +* 


INDEX 
*,*#C INDEX) 


*, INDEX 
INDEX, 


1688 
1685 
1696 


1699 
1706 


1711 
1712 
1711 


1718 


1721 
1722 
1723 


1724 
1725 
1726 
1728 
1729 
1726 


1643 
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A CZQNACO DEQNA FUNCTIONAL TEST S5-Jul-1984 14:04:31 
yo1.0 INITIALIZE SECTION S-Jul-1984 14:01:26 


-SBTTL LSINIT INITIALIZE SECTION 
000000 004737 000020' nem + INIT 


RTS PC 
: Routine Size: 4 words, Routine Base: AASCODE$ + 0300 
; Maximum stack depth per invocation: 2 words 


1735 i 
1736 1 
1737 1 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK . DEQNA JZQNA2.BLI;2 


SEQ 0077 
Page at 








o ee G+ oe Ge oF 
~ 
~ 
py 
~ 


rw 
~ 
> 
o 

RK MMM NR RRR eee ee ee 


ee @+ G+ oe Ge Ge Ge Ge Ge 
ra 
~ 
> 
© 


000000 000207 


; Routine Size: 
; Maximum stack 


000006 000207 


; Routine Size: 
; Maximum stack 


8 1754 1 
L755. i 
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SEQ 0078 
CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 Page 15 
AUTODROP SECTION 55-Jul-1984 14:01:26 (MAZURCZYK .DEQNA)ZQNA2.BLI;2 (9) 
@SBTTL ‘AUTODROP SECTION’ 
fee 
' 
' THIS CODE IS a a IMMEDIATELY AFTER THE INITIALIZE CODE IF 
H THE “ADR” FLAG WAS SET THE UNIT UNDER TEST IS CHECKED TO 
: SEE IF IT WILL RESPOND. IF IT DOESN'T IT IS IMMEDIATELY 
: DROPPED FROM TESTING. 
J 
= 
BGNAUTO; 
RETURN; 
ENDAUTO; 
.SBTTL LAUTO AUTODROP SECTION : 
LAUTO: RTS PC 3 1734 
1 word, Routine Base: AASCODE$ + 0310 
depth per invocation: 0O words 
.SBTTL LS$AUTO AUTODROP SECTION 
000310' L$AUTO: : JSR PC,LAUTC PF 1751 
TRAP 61 
RTS PC 
4 words, Routine Base: AASCODES + 0312 


depth per invocation: 2 words 
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SEQ 0079 
ZQNA2] CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:04:31 VAX-11 Blies-16 V4.0-579 Page 16 
v01.0 CLEANUP CODING SECTION 5-Jul-1984 14:01:26 ([MAZURCZYK .DEQNA ]ZQNA2.8LI;2 (10) 
: 1756 1 @SBTTL ‘CLEANUP CODING SECTION’ 
3 1757 1 
ini. 
; 1760 1 : THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
3 1761 1 : AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
1762 1 8 

; ims 1 INSERT YOUR CLEANUP CODING. THIS CODING SHOULD 
i 1764 1 : RESTORE YOUR TEST-DEVICE TO A NEUTRAL STATE. 
: 1765 1 : THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 
: 1766 1 : PROGRAM IS INTERRUPTED BY “tC”. 
; 1767 1 t-- 
8 1766 1 
: 1769 2 BGNCLN; 
3 i770 2 
3 1771 2 RETURN; 
3 1772 2 
3 1773 1 ENOCLN; 

.SBTTL LCLEAN CLEANUP CODING SECTION 
000000 000207 LCLEAN: RTS PC 3 1753 
; Routine Size: 1 word, Routine Base: AASCODES + 0322 
; Maximum stack depth per invocation: O words 

.SBTTL LSCLEAN CLEANUP CODING SECTION 
000000 004737 0600322’ LSCLEAN:: 

JSR PC,LCLEAN 3 1771 
000004 104412 TRAP 12 
000006 000207 RTS PC 
s Routine Size: 4 words, Routine Base: AASCODES + 0324 


; Maximum stack depth per invocation: 2 words 


3 1774 il 
s s773 i 





<n 


QNA2 
01.0 


ee ef Ge Ge Ge Ge Ge Ge Ge G+ Ge Ge Ge Ge GF Ge Ge Ge Ge 
bebe 
NN 
se 
w 
= PO AD 10 1D eb be be be ee ee pe 


000000 000207 


: Routine Size: 
: Maximum stack 


3; Routine Size: 
3; Maximum stack 


FH 1795 6 
8 1796 1 
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CZQNACO DEONA FUNCTIONAL TEST S-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 
DROP UNIT SECTION S-Jul-1984 14:01:26 ([MAZURCZYK .DEQNA ]ZQNA2.BLI;2 


SSBTTL ‘DROP UNIT SECTION’ 


o 
e 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. 


INSERT DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
A “DROP” COMMAND OR A “DODU” MACRO EXECUTION. THE PURPOSE 
OR THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 
UNIT HAS BEEN DROPPED. 


BGNDU; 
RETURN; 
ENDDU; 
re Pe ~ a oy DROP UNIT SECTION ; 
1 word, Routine Base: AASCODES + 0334 


depth per invocation: O words 


-SBTTL L$DU DROP UNIT SECTION 


000334' L$DU:: JSR PC,LOU : 
TRAP 53 
RTS PC 

4 words, Routine Base: AASCODES + 0336 


depth per invocation: 2 words 


SEQ 0080 
Page 17 
(11) 
1773 
1792 


<N 
es 
rw 
°o 


ee Ge Ge Ge G6 Gs Ge Ge Gt Gt Ge Ge Ge Ge Ge Ge GF GF Ge 
od 
@ 
°o 
“ 
100 10 10 & ee be be ee ee ee 


000000 000207 


3; Routine Size: 
: Maximum stack 


3s Routine Size: 
; Maximum stack 


1816 1 
1617 1 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:04:31 VAX-11 Blise-16 V4.0-579 P 18 
ADD UNIT SECTION 5-Jul-1984 14:01:26 [MAZURCZYK .DEQNA)ZQNA2.BLI;2 12) 


SSBTTL ‘ADD UNIT SECTION’ 


> 
* 


THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 


INSERT ADD CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
AN “ADD” COMMAND. THE PURPOSE OF THIS CODE IS TO DO ANY 
HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 


.SBTTL LAU ADD UNIT SECTION 
LAU: RTS PC 8 1794 


1 word, Routine Base: AASCODES + 0346 
depth per invocation: 0 words 


.SBTTL LS$AU ADD UNIT SECTION 
000346’ L$AU:: JSR + etna 3 1813 


RTS PC 


4 words, Routine Base: AASCODES + 0350 
depth per invocation: 2 words 


E/ 


ZQNA2 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:04:31 VAX-11 Bliss-16 V4.0-579 Page 19 
vo1.0 ADD UNIT SECTION 5-Jul-1984 14:01:26 ([MAZURCZYK .DEQNA )ZQNA2.BLI;2 (13) 


BGNSRV (NXM_INT); 


> 
* 


GLOBAL LOCATION “INTERRUPT_FLG” IS SET TO TRUE WHICH INDICATES 
THE INITIALIZATION SEQUENCE INTERRUPT OCCURED. 


INTERRUPT _FLG = 60'177777'; 
ENDSRV; 


@e Oe Gs @2 Oe Oe Oe Oe OF OF OF oe oF 
~ 
@ 
ft 
a 
= PoP fol fofofofolfolv for 


-SBTTL NXM.INT ADD UNIT SECTION 
000000 012737 177777 000000G NXM. INT: : 
MOV @-1, INTERRUPT .FLG ; 1828 


000006 000002 RTI ; 1819 


Routine Size: 4 words, Routine Base: AASCODE$ + 0360 
Maximum stack depth per invocation: 0O words 


8 18313 i 
3 1832 1 END 
FY 1833 0O ELUDOM 


3 OTS external references 
-GLOBL $SAVE4 


PSECT SUMMARY 


; Psect Name Words Attributes 
8 $CODE$ 50 MO. £ « Shs Eis CON 
3 AASCODES$ 124 OS + £« th, RELa COM 
Library Statistics 
A | pipet Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


DISK $USER2: [MAZURCZYK .DEQNA JQNALIB.L16;2 


48 21 14 00:00.1 


F7 


ZQNA2 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:04:31 
v01.0 ADD UNIT SECTION 5-Jul-1984 14:01:26 


COMMAND QUALIFIERS 
BLISS/PDP11 ZQNA2.BLI/: IST=ZQNA2.LIS/OBJECT =ZQNA2 . OBJ/SOURCE =PAGE : 53 


Size: 124 code + 50 oate words 
Run Time: 00:13.4 

Elapsed Time: 00:32.1 

Lines/CPU Min: 8225 


Lexemes/CPU-Min: 56172 
Memory Used: 175 pages 
Compilation Complete 


ee es + Gf Ge GF oF 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEQNA )ZQNA2.BLI;2 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
S-Jul-1984 14:02:06 {[MAZURCZYK . DEQNA JZQNA3.BLI;2 


MODULE ZQNA3 pot an, DEQNA FUNCTIONAL TEST’ 
SSING_ MODE( ABSOLUTE ) 


= 
SSBTTL ‘DEQNA TEST DEFINITION MODULE’ 
BEGIN 


!<BLF /FORMAT> 
LIBRARY ‘QNALIB’; ! QNALIB LIBRAR 
REQUIRE ‘BLSMAC.REQ’; ! DIAGNOSTIC SUPERVISOR LIBRARY 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
DEQNA TEST DEFINITION MODULE 5S-Jul-1964 14:02:06 ([MAZURCZYK .DEQNA)ZQNA3.BLI;2 


PSECT 
CODE = ABSCODES; 


: 


EXTERNAL DATA USED BY THIS MODULE 


EXTERNAL ROUTINE 


CHK _CSR_STATUS 
CHK _RIXI_STATUS 


PRINT EXTENDED ERROR MESSAGE 
PRINT EXTENDED ERROR MESSAGE 


NXM INTERRUPT SERVICE ROUTINE 


SEND_E 

SEND_TEST RACKET 
SET_XDESCR_LIST 
SET_ _ROESCR- “LIST 
TURN_OFF _LED 

VER NOE SCA STATUS 
WAIT _FOR_TIMEOUT 
WALKING _BIT 

WRT _STATION_ADR 
XMIT_AND_RCV_PACKET 
XMIT_ILOOP_PACKET 
XMIT_SETUP_PACKET 


ea ee ed 





‘ 


eee ee ee ed 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 
DEQNA TEST DEFINITION MODULE S-Jul-1984 14:02:06 


EXTERNAL 


See 
n 
. 
t.. 
: 


COMMUNICATION AREA DECLARATIONS 


D_SIZE, WORD }] FIELD ( OL_FIELOS ), 
D_SIZE, WORD } FIELD ( DL_FIELDS ), 
DESCR_SIZE, WORD) FIELD ( DL_FIELDS 


RCv_D_LIST 
XMIT_O_LIST 
DESCR_LIST 
RCV_BUFFER 
XMIT_BUFFER 
DATA _P'FFER 


44, WORD }, 
BD_O_SIZE, WORD J, 
. WORD 


[ 

if 

{ 

if 

{ TL 
{ 22 
{ 8 
. 
{ 8, BYTE }, 


PTRN_TABLE 
HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 

HWP_TABLE =: REF BLOCK ( HWP_SIZE, WORD ] FIELD ( HWP_FIELDS ), 
SWP_TABLE : REF BLOCK [ SWP_SIZE, WORD ] FIELD ( SWP_FIELDS ), 
REG_ADR : REF REG_STR FIELD ( IOP_FIELDS ), 


GET_ADR : REF ADR_STR FIELD ( IOP_FIELDS ), 
IOP _DATA : REF REG_STR FIELD ( IOP_FIELDS ), 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK . DEQNA)ZQNA3.BLI;2 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
DEQNA TEST DEFINITION MODULE S-Jul-1984 14:02:06 {[MAZURCZYK . DEQNA JZQNA3.BLI;2 


! CO=NONE , -1*L-CLOCK,1=P_CLOCK) 
MISCELLANEOUS DATA DECLARATIONS 
XBUF __LENGTH, RBUF _LENGTH, INTERRUPT _FLG, 
SWP _BLOCK _MEM SWP_ILOOP, 
0 CHECKSUM, 
CSP_WORD, 


PRIO3, 
PRIOS, PRIO7, 


TEMPORARY STORAGE NATA DECLARATIONS 
Pe, P3 P4, 
TMP _REG_DATA, TEMP2, 
TEMP4, T TEMP6, 
TEMPS, TADR1, 
TBYTE1, TBYTE2, ; TBYTES, TBYTE4 


ee 





ee a 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul - 1964 
DEQNA TEST DEFINITION MODULE S-Jul - 1984 


ERROR MESSAGES DEFINED EXTERNALLY 


14:05:07 
14:02:06 


MSG60, 
MSG70; 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA)ZQNA3.BLI;2 


Ce ee ee ed ee 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 5S-Jul-1984 14:02:06 (MAZURCZYK . DEQNA JZQNA3.BLI;2 


SSBTTL ‘TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST’ 


Soe 


TEST 1: NON-EXISTANT I/0 PAGE REGISTER TEST 
DESCRIPTION: 


This test verifies that all the device registers residing in 

I/0 Page can be accessed without forcing a non-existant onan meNxtt) 
interrupt. If the operator specifies loop on error, the program 
re-executes the code that detected the error until tC is entered. 


Hardware tested: Q-Bus to DEQNA Sleve Registers Interface 
Processing: 


BEGIN 
t ready for NXM interrupt 
EPEAT for every I/0 page register 
read I/0 page register 
IF NXM occured 
THEN 
print error message if not inhibited 

ENDIF 

ENDREPEAT 


write any data pattern into the first 2 1/0 page 
registers 
IF NXM occured 
THEN 
print error message if not inhibited 
ENDIF 
END 


ee Ge Ge Ge Ge Ge Ge Ge Ge Ge Gt Ge Ge Gt G6 Ge Ge Ge Gt Ge Ge Ge Gt Ge Ge Gt Gt Ge Ge Gt Ge Ge Ge Gt GH Ge Ge Ge Ge G+ Ge Ge GF Ge Ge GF Ge Ge Ge 
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CZQNACO DEQNA FUNCTIONAL TEST 
TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 


BGNTST; 


SETVEC (4, NXM_INT, PRIO7); 
DELAY (MS_DELAY); 
INTERRUPT_FLG = CLEAR _FLG; 


MP_IOP_ADR = .HWP_ a7 60 { ADOR ]; 
INCR INDEX FROM 0 707 
BEGIN 
BGNSUB ; 
TEMP1 = ..TMP_IOP_ADR; 
DELAY( 7); 
IF -INTERRUPT FLG EQLU WORD_LIMIT 


THE 

BEGIN 

INTERRUPT_FLG = CLEAR_FLG; 
PRINTB ( MSG59 ); 

PRINTB (€ MSG70, TMP _ IOP_ADR ); 
ERRDF (0101, MSGOO, E1$REPORT); 
DODU ¢ DEQNA_ NO ); 

DOCLN; 
ND 


E 
NDSUB; 


E 
TMP_IOP_ADR = .TMP_IOP_ADR + 2; 


TMP_IOP_ADR = .HWP_ ‘eg? { ADDR }; 
INCR INDEX FROM 0 TO 1 


BGNSUB ; 
. TMP_IOP_ADR = #X'7F‘'; 
DELAY(7); 
*. {INTERRUPT FLG EQLU WORD_LIMIT 


 EEGIN 
INTERRUPT_FLG = CLEAR_FLG; 
PRINTB ( MSGS9 ); 
PRINTB ( MSG70, .TMP_IOP_ADR ); 
ERRDF (0102, MSGOO, E1$REPORT); 
DODU ( DEQNA_NO ); 
DOCLN; 

END; 
ENDSUB; 
TMP_IOP_ADR = 

END; 

CLRVEC (4); 


ENDTST; 


.-TMP_IOP_ADR + 2; 


M7 


S-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK . DEQNAJZQNA3.BLI;2 


SET UP FOR AN NXM INTERRUPT 
DELAY 50 x 100 us = 5 ms 
CLEAR OUT NEX FLAG 


SEE IF WE GOT A NXM INTRT 


ADDRESS NOT THERE 
CLEAR TRAP FLAG 


‘I/O PAGE REG. NOT PRESENT’ 


WRITE FIRST 2 LOCATIONS 
SEE IF WE GOT A NXM INTRT 


ADDRESS NOT THERE 
CLEAR TRAP FLAG 


‘I/O PAGE REG. NOT PRESENT’ 


CLEAR INTERRUPT VECTOR 


-TITLE ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 


-IDENT /VO01.0/ 


ZQNA3 
v01.0 


000000 


000000 
000004 
000006 


CZQNACO DEQNA FUNCTIONAL TEST 
- NON-EXISTANT I/O PAGE REGISTER TEST S-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)ZQNA3.BLI;2 


TEST 1 


004137 000000G 
005746 
012746 000000G 


$T1l: 


- ENABL 


N7 


S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 


AMA 


CHK.CSR.STATUS, CHK.RIXI.STATUS 

CHK .RCV.STATUS, CHK. XMIT.STATUS 
CLR.BUFFERS, CLR.DESCR, y tte “yy ~ ie 
E1$REPORT, ERRORS$REPORT, FORM.HEX.ADR 
KBD.INT, NXM.INT, PREP.FOR.SET uP 

PWR. INT, RESET.DEQNA, SEND.ELOOP.PACKET 
SEND. TEST. PACKET, SET.XDESCR.LIST 
SET.RDESCR.LIST, TURN.OFF.LED 

VER .DESCR.STA% US, WAIT .FOR. TIMEOUT 
WALKING.BIT, WRT.STATION.ADR, XMIT.AND.RCV.PACKET 
XMIT.ILOOP. PACKET, XMIT.SETUP .PACKET 
RCV.D.LIST, «MIT.D.LIST, DESCR.LIST 
RCV.QUFFER, XMIT.BUFFER, DATA.BUFFER 
TARGET.ADR, PHYS.ADR, TOP. TABLE 

RD13, 1013, 1016, BD.PROM.DESCR 
STATION. ADR, PTRN.TABLE, HWP. TABLE 
SWP.TABLE, REG.ADR, GET.ADR, IOP.DATA 
XBUF .LENGTH, RBUF.LENGTH, INTERRUPT .FLG 
COUNTER, SWP.BLOCK.MEM, SWP.TOUT.VAL 
SWP. ILOOP, SWP. TIMER, UP. COUNTER 

DOWN. COUNTER, CHECKSUM, ERR .NUMBER 
XC.FLAG, SWP.LBC, ERR.COUNT, ERR.FLAG 
CSR.WORD, PRIOO, PRIO1, PRIO2 

PRIO3, PRIO4, PRIOS, — PRIO7 
DEQNA.NO, P1, Pe, P3, TMP .IOP.ADR 
TMP.REG.DATA, TEMP1, TEMP2. TEMPS 
TEMP4, TEMPS, TEMP6, TEMP7, TEMPS 


TADR2, 
TBYTES, TBYTE4, MSGOO, MSG71, MSGO1 
MSGO2, MSGO3, MSGO4, MSGOS, MSGO6 


MSGO7, MSGO8, MSGO9, MSG10, MSG11 
MSG12, MSG13, MSG14, MSG15, MSG16 


MSG62, MSG63, MSG64, MSG65, MSG66 
MSG67, MSG68, MSG69, MSG70, LS$DLY 


$T1 TEST 1 - NON-EXISTANT I/O PAGE REGISTER TEST 
ABSCODE$, RO 

R1, $SAVE2 : 

-(SP 

#PRIO7, -(SP) ; 


1611 
1650 


CZQNACO DEQNA FUNCTIONAL TEST 


TEST 1 - NON-EXISTANT I/0 PAGE REGISTER TEST 


000000G 
000004 


000000G 177777 
000000G 
0000006 

000001 


000000G 
000000G 


B8 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


R 

1% 

INTERRUPT .FLG 

HWP . TABLE, TMP. IOP. ADR 
es 


TMP .IOP.ADR, TEMP 1 
o~ 


‘ 
LSOLY,RO 
8$ 


10(SP) 
RO,7$ 
R1 


é$ 
INTERRUPT .FLG,@-1 


10$ 

INTERRUPT .FLG 

OMsGS9, (SP) 

1,-(SP) 

SP,RO 

14 

TMP. IOP.ADR, (SP) 
70,-(SP) 


S$ 

62, TMP. IOP. ADR 

R2,5$ 

@HWP. TABLE, TMP. IOP .ADR 
02,R2 


VAX-11 Bliss-16 V4.0-579 
{MAZURCZYK .DEQNA JZQNA3.6LI;2 


o,$sTMP2 
*,$STMP1 
$sTMP 


$sTMP1,« 
$sTMP2 


«, INDEX 


e,$$TMP2 
o,$STMPl 
$$TMP 


$sTMP1,« 
$$TMP2 





CZQNACO DEQNA FUNCTIONAL TEST 


TEST 1 - NON-EXISTANT 1/70 PAGE REGISTER TEST 


012777 


000177 000000G 
000007 


12s: 


138: 
14%: 
158: 


Routine Base: 
13 words 


145 words, 
depth per invocation: 


; Routine Size: 
: Maximum stack 


AB SCODE $ 


C8 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


@177,aTMP.IOP.ADR 
07,R1 


12$ 
+ amt nchaamten 


16 

INTERRUPT .FLG 
@MSG59,( SP) 
@1,-(SP) 

SP,RO 

13 

TMP . IOP .ADR, (SP) 


11% 

02, TMP. IOP. ADR 
R2,118 

04,RO 

36 


012,SP 
PC 


+ 0000 


Tl TEST 1 - NON-EXISTANT 1/0 PAGE 


PC,$T1 
66 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA]ZQNA3.BLI;2 


3 
¢,$$TMP2 


o,$$TMPl 
$sTMP 


$$TMP1,« 
$sTMP2 


3 
INDEX, 


REGISTER TEST 





Oe eee ee ee ee he be pe ee he he he he he he he ee he he he be he he he be pee ee he he pe fe ee he he he be ee ee pe 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 12 
TEST 2 - CSR STATIC BIT TEST 5-Jul-1984 14:02:06  [MAZURCZYK .DEQNAJZQNA3.BLI;2 (8) 
@SBTTL ‘TEST 2 - CSR STATIC BIT TEST’ 
foe 

TEST 2: CSR STATIC BIT TEST 

DESCRIPTION: 


This test verifies that the CSR register static bits can be set 
and cleared as specified. The host writes date patterns to this 
register and reads them back verifying no static 
(stuck at 1 / stuck at 0) faults occur. If the operator specifies 
loop on error, the program re-executes the code that detected the 
error until *C is entered. 


Hardware tested: Q-Bus to DEQNA Slave Regs. Interface 
Processing: 


BEGIN 
check Software Reset ( SR ) bit in the CSR for stuck at 0 
and 1 


IF error 
THEN 
oo error message if not inhibited 


set static bits ( 0,3,8.9 ) and check for expected CSR status 
IF error 
THEN 

= error message if not inhibited 


a 
clear static bits and check for expected CSR status 
IF error 
THEN 
print error message if not inhibited 
ENDIF 
set static bits ( 0,3.8.9 ) and check for expected CSR status 
IF error 
THEN 
print error message if not inhibited 
ENDIF 
reset DEQNA and check for expected CSR status 
IF error 
THEN 
print error message if not inhibited 
IF 


END 





i 
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CZQNACO DEGNA FUNCTIONAL TEST VAX-11 Bliss-16 V4.0-579 
TEST 2 - CSR STATIC BIT TEST So ul-1984 14 (MAZURCZYK . DEQNA )ZQNA3.BLI;2 


BGNTST; 


C 2; 
PUT_BIT ( CSR, ALL_BITS, PATRNI ); 
DELAY ¢ TIME6_ LIMIT ); 
TEMP1 = GET BIT [ cst ALL }] AND PATRNI1; 
"son" NEQU PATRN 


3 
PRINTB ( MSG30, “GET. ADR { CSR_ALL J}, .TEMP1, PATRNI ); 
ERRDF ( 0201, MSGOO, E1$REPORT ); 


E 
ENDSUB; 


CHECK IF CSR STATIC BITS (BIT 0,3,8 AND 9) ARE NOT STUCK AT 1 


GNSUB; 

PUT_BIT ( CSR, ALL_BITS, ZERO ); 

DELAY ( TIME6 LIMIT ); 

TEMP2 = GET _BIT { CSR_ALL ] AND PATRN1; 
IF D tates NEQU ZERO 


( MSGS9 ); 
PRINTB ( MSG61 ); 
PRINTB ( MSG30, .GET_ADR ( CSR_ALL ), .TEMP2, ZERO ); 
ERRDF ( 0202, MSGOO, E1$REPORT ); 


END 
ENDSUB; 


BGNSUB; 
PUT_BIT ( CSR, — _BITS, PATRN1 ); 
RESET_DEQNA ( 
TEMPS = GET_ ort’ = — ALL ) AND PATRN ; 
F es NEQU Z 


BEGIN 
PRINTB ( MSGS9 ); 
PRINTB ( MSG62 ); 
PRINTB ( MSG30, GET. ADR { CSR_ALL }, .TEMP4, ZERO ); 
ERRDF ( 0203, MSGOO, E1SREPORT ); 


E 
ENDSUB; 








005061 
000234 012702 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 2 - CSR STATIC BIT TEST 


ENDTST; 


000000G 
000016 
000000G 
000000G 

001411 000016 
000001 


000016 


000000G 
000016 
900001 


$T2: 
1%: 


2s: 


3$: 
4$: 
5$: 


6$: 


7$: 


- SBTTL 


F8 


5-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


$f2 A. 8, - CSR STATIC BIT TEST 


R1, $SAV 
—— 

PC RESET .DEQNA 
REG.ADR,R1 

~ wma 
S$ 

LSOLY,RO 

as 

14(SP) 

RO,3$ 

R2 


es 
16(R1),(SP) 
(SP), TEMP1 


0176366, TEMP1 
TEMP1, 01411 


6$ 
@MSGS9, -( SP) 
#1, -(SP) 
SP,RO 


14 
@MSG60, (SP) 
1, -(SP) 
14° 

01411,(SP) 
TEMP1, -(SP) 


#16,SP 
6 


VAX-11 Bliss-16 V4.0-579 
{[MAZURCZYK .DEQNA )ZQNA3.BLI;2 


*,$$TMP2 
*,$$STMP1 
$$TMP 
$$TMP1,¢ 
$$TMP2 


*, TMP .LOCATION 
TMP .LOCATION, « 


SP,« 


SP, 


#, TMP .LOCATION 
«, TMP .LOCATION 
TMP .LOCATION, «+ 


SP, 


*,$$TMP2 


1757 


1758 


1761 


1762 


1763 


1764 


1760 
1765 


1766 
1775 


1774 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 2 - CSR STATIC BIT TEST 


000014 9$: 


10$: 
11$: 


000016 
000000G 
00141: 000016 
000000G 


000000G 

000016 000010 
000010 000000G 
176366 000000G 


000000G 
000001 


0000006 
000001 


8$ 
16(R1),4(SP) 
4(SP), TEMP2 
0176366, TEMP2 


12$ 


016,SP 
6 


REG.ADR,RO 
#1411,16(RO) 
0 Ty aan 


G. 6 
16(RO),10(SP) 
10( SP), TEMPS 
0176366, TEMPS 


14$ 
OMSGS9, -( SP) 
1, -(SP) 
SP,RO 


14 
@MSG62 , (SP) 
#1, -(SP) 
SP,RO 

14 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK . DEQNA JZQNA3.BLI;2 


*,$$TMP1 


$$TMP 
$$TMP1,« 
$sTMP2 


«, TMP .LOCATION 
TMP .LOCATION,«¢ 


SP,* 


SP,« 


«, TMP .LOCATION 
¢, TMP .LOCATION 
TMP .LOCATION, ¢ 


SP, 


*«, TMP LOCATION 
TMP .LOCATION, 


SP,« 


SP ,* 


1775 


1776 
1779 


1780 


1781 


1782 


1778 
1783 


1784 
1787 


1788 
1789 


1790 
1793 


1794 


CZQNACO DEQNA FUNCTIONAL TEST VAX-11 Bliss-16 V4.0-579 
TEST 2 - CSR STATIC BIT TEST : ([MAZURCZYK .DEQNA JZQNA3.P_I;2 


«, TMP .LOCATION 
TMP .LOCATION,« 


SP ,*« 


000016 


000016 


; Routine Size: 198 words, Routine Base: ABSCODES 
; Maximum stack depth per invocation: 19 words 


T2 TEST 2 - CSR STATIC BIT TEST 
PC,$T2 
66 


004737 

104466 

006000 

103773 

000207 
Routine Size: 6 words, Routine Base: ABSCODE$ + 1272 
Maximum stack depth per invocation: 2 words 


1801 1 
1602 1 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST S-Jul-1984 14:02:06 {MAZURCZYK . DEQNA)ZQNA3.BLI;2 


SSBTTL ‘TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST’ 


See 


i 


TEST 3: ETHERNET STATION ADDRESS VERIFY TEST 


DESCRIPTION: 


This test verifies that the Ethernet Station Address PROM can be 

read and loaded to host memory yey Ethernet Station Address is 
verified and checksum is computed from PROM date read and this checksum 
is compared to the checksum stored in the Ethernet Station Address 
PROM. Ethernet Station Address is always printed out on the console in 
the Ethernet standard format. If the address is not proper, the error 
is recorded and an appropriate error message is printed out on the 
console. If the operator specifies loop on error, the program 
re-executes the code that detected the error until tC is entered. 


Hardware tested: Station Address PROM 
Q-Bus DMA Interface 
Processing: 


BEGIN 


read DEQNA Station Address PROM and checksum 
save copy of Station Address PROM in host memory 
print Station Address on the console in standard format 
compute Station Address ROM checksum 
| ate read not equal checksum computed 
print error message if not inhibited 
ENDIF 
IF Station Address 


a {multicast bit set): 


THE 
print error message if not inhibited 
ENDIF 


END 


ee ee ee ed 





J8 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 5-Jul-1984 14:02:06 [MAZURCZYK . DEQNA)ZQNA3.BLI;2 


BGNTST; 
BGNSUB ; 


RESET ._DEQNA ( 3; 
FORM_HEX_ADR ( PHA_INDEX ); 


SEQ 0100 


tae 
! COMPUTE EXPECTED CHECKSUM 


CHECKSUM = 0; 


ogo pee FROM O TO S BY 2 DO 
-. . — AND #0'100000' ) NEQU ZERO 


™OEGIN 
CHECKSUM = .CHECKSUM f 1; 
CHECKSUM = .CHECKSUM + 1; 
END 
ELSE 
CHECKSUM = .CHECKSUM f 1; 
CHECKSUM = .CHECKSUM + .STATION_ADR [ .COUNTER ]}; 
—— GTRU WORD_LIMIT 
N 
CHECKSUM = .CHECKSUM «+ 1; 


COUNTER = .COUNTER « 1; 
END; 


"PRINT PHYSICAL STATION ADDRESS 


PRINTB ( MSGO1, .HWP_TABLE [ ADDR } ); 
PRINTB ( PHYS_ADR ); 


See 
* READ ACTUAL CHECKSUM FROM DEQNA STATION ADDRESS PROM AND COMPARE IT TO 
' THE EXPECTED CHECKSUM COMPUTED ABOVE. 


PUT_BIT ( CSR, LB, EXT_LOOPBACK ); 
DELAY ( 5 ); 
= ,REG_ADR 1, ALL_BITS ); 


° 

{ 0, ALL_BITS }; 
STATION _POR { CHSUM } = ,TEMP1 OR ( .TEMP2 AND #0'000377' ); 
PuT_BIT ( CSR, LB, ZERO ); 
v. a NE QU .STATION. ADR { CHSUM } 


a 
o 
a 
3 
e 
° 
é 
3 
3 
° 
: 
. 
. 
° 
° 
é 
é 
° 
é 
é 
a 
é 
3 
é 
° 
é 
3 
3 
o 
3 
‘ 
’ 
: 
. 
° 
. 
oO 
. 
. 
. 
@ 
. 
. 
‘ 
. 
oO 
. 
° 
. 
e 
o 
. 
e 
é 
6 
e 
. 
e 
s 
So 
. 
# 
é 
. 
a 
’ 
6 
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6 
6 
6 
6 
5 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
3 
3 
4 
4 
4 
3 
4 
4 
4 
4 
4 
3 
3 
1 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST S-Jul-1984 14:02:06 


BEGIN 
PRINTB ( MSGS9 ); 
PRINTB ( MSG63, .STATION_ADR [ CHSUM ], .CHECKSUM ); 
ERRDF (0301, MSGOO, E1SREPORT); 


TEMP3 = ZERO; 
TEMP4 = ZERO; 
INCR INDEX FROM O TO 2 DO 
BEGIN 
TEMPS = .TEMP3 + .STATION_ADR ( .INDEX ); 
IF STATION. AOR { . INDEX } EQLU sx‘FFFF’ 


N 
TEMP4 = .TEMP4 «+ 1; 
- TEMPS EQLU ZERO ) 


. TEMP4 GTRU ZERO ) 
( .STATION_ADR [ ZERO ) AND #x'0100' ) EQLU #x‘0100' ) 


) 
PRINTB ( PHYS_ADR ); 
ERROF 0302, MSGOO, E1$REPORT); 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA]ZQNA3.BLI;2 


-SBTTL $T3 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 


R1, $SAVE2]) 
6,SP 


2 
PC,RESET.DEQNA 
$23, -¢ SP) 
PC,FORM.HEX.ADR 
CHECKSUM 


R1 
en. RO 
ee CHECKSUM 


RO, CHECKSUM 
a SUM 


RO, CHECKSUM 

_—— »RO 

STATION. ADR( RO), CHECKSUM 
COUNTER 

#2,R1 


: 
; *, INDEX 


SEQ 0101 





103610 
005037 


CZQNACO DEGNA FUNCTIONAL TEST 
TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST S-Jul-1984 14:02:06 


L8 


5-Jul-1984 14:05:07 


R1,05 
4 


REG.ADR,R1 
#1400, 16(R1) 
@5,R2 

8$ 

LSOLY,RO 

7$ 

14(SP) 

RO,6$ 

Re 


S$ 

2(R1),10(SP) 
10(SP),RO 

#10,RO 

RC, TEMP1 
(R1),12CSP) 

(R1), TEMP2 
STATION. ADR +6 
(R1), STATION. ADR+6 
RO, STATION. ADR +6 


#1400, 16(R1) 
CHECKSUM, STATION. ADR +6 


9$ 

@MSGS9, (SP) 
#1, -(SP) 

SP, 

14 

CHECKSUM, (SP) 


STATION.ADR+6, -( SP) 
@41SG63, -( SP) 


Hoe SP 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA )ZQNA3.BLI;2 


INDEX, ¢ 


SP,* 


SP,* 


*,$$TMP2 
*,‘$TMP1 

$$TMP 

$$TMP1,« 
$$TMP2 

«, TMP .LOCATION 
TEMP1,« 

*, TMP .LOCATION 
TMP .LOCATION,* 


TEMP2,* 
TEMP1,+# 


SF,* 


SP ,# 


SEQ 0102 
P 


20 
(11) 


1880 


1881 


1888 
1889 


1890 
1891 


1892 
1893 
1894 
1895 
1898 


1899 


1900 


1897 
1844 
1901 


1904 













: Routine Size: 
; Maximum stack 
000000 004737 
000004 104466 

006000 


000010 103773 
000012 000207 


; Routine Size: 
; Maximum stack 


CZQNACO DEQNA FUNCTIONAL TEST 


TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 


000000G 

000000G 10$: 

000000G 177777 

000000G 

000002 11$: 

000004 

000000G 

000000G 

000400 000000G 

000000G 12$: 

000001 

000000G 

000001 

000000G 

000001 

000010 

000006 13%: 
180 words, Routine Base: 

depth per invocation: 16 words 

001306' T3:: 

1$: 

6 words, 





AB SCODE $ 


M8 


5-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 
TEMP4 

RO 

STATION. ADR(RO), TEMPS 
STATION. ADRCRO),#-1 


12 
#400,STATION.ADR 


13$ 
@MSGS9, -C SP) 
#1,-C(SP) 


14 
@MSG64 , (SP) 
#1,-(SP) 
PRO 


14 
#PHYS. ADR, (SP) 
—- 


MSGOO 
E1$REPORT 
#10,SP 
#6 , SP 

PC 


+ 1306 


T3 TEST 3 - ETHERNET STATION ADDRESS VERIFY TEST 


PC,$T3 
6 


Routine Base: ABSCODE$ + 2056 
depth per invocation: 2 words 


VAX-11 Bliss-16 V4.0-579 
{[MAZURCZYK .DEQNA)JZQNA3.BLI;2 


INDEX 
*#( INDEX),«# 
*( INDEX), 


*, INDEX 
INDEX, 


SP ,* 
SP,* 


SP ,* 


SEQ 0103 
P 


21 
(11) 


1921 
1922 


1918 
1800 


1923 


N8 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNAJZQNA3.BLI;2 


*SBTTL ‘TEST 4 - INTERRUPT VECTOR ADDRESS TEST’ 
See 
a 


TEST 4: INTERRUPT VECTOR ADDRESS TEST 
DESCRIPTION: 


This test verifies that all bits of the vector address register 

can be set and cleared as specified. The host writes data patterns 
to this register and reads them back verifying no static 

(stuck at 1 / stuck at 0) faults occur. If the operator specifies 
loop on error, the program re-executes the code that detected the 
error until tC is entered. 


NOTE: Only bits 9:2 of the Interrupt Vector Address Register are 
valid, rest read as 0. 


The following BINARY data patterns are used: 


00000000 11111111 
10101010 01010101 
11001100 00110011 
11110000 00001111 
walking 1's, 1 propagating thru Vector Address Reg. 
walking 0's, 0 propagating thru Vector Address Reg. 


Hardware tested: Device Vector Address Register 
Slave Interface Registers 


Processing: 
BEGIN 
reset device 
REPEAT for each pattern 
write pattern to Vector Address Register ( bits 9:2 ) 
read pattern from Vector Address Register ( bits 9:2 ) 
compare write pattern to read pattern (less noise bits) 
— equal 


——_, error message if not inhibited 


ENDREPEAT 
ND 


CN ed dd 
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TEST 4 - INTERRUPT VECTOR ADDRESS TEST 5-Jul-1984 14:02:06 (MAZURCZYK . DEQNA )ZQNA3.BLI;2 
BGNTST; 


RESET_DEQNA ( ); 


: 

: WAITE ALTERNATING 0‘S AND 1‘S TO INTERRUPT VECTOR ADDRESS REGISTER 
! IN THE I/0 PAGE, THEN READ AND COMPARE TO THE WRITE PATTERN 

!-- 


INCR INDEX FROM O TO 7 DO 
BEGIN 
TEMP1 = .PTRN_TABLE [ .INDEX ); 


BGNSUB ; 
PuT_BIT { INT_VEC, VEC_ADR, .TEMP1 }; 
a { INT_VEC, VEC_ADR } NEQU .TEMP1 


BEGIN 
PRINTB ( MSGS9 ); 
PRINTB ( MSG65 ); 
PRINTB ( MSG30, .GET_ADR [ VEC_ALiL J], .TEMP1, GET_BIT [ INT_VEC, VEC_ADR ) ); 
ERRDF ( 0401, MSGOO, E1SREPORT ); 


8 
ENDSUB; 
ND; 


WRITE WALKING 1 PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE I/0 PAGE 
REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN 


TEMP1 = #8'00000001' ; 
INCR INDEX FROM 0 TO 7 DO 
BEGIN 


BGNSUB; 
PUT_BIT { INT_VEC, VEC_ADR, .TEMP1 }; 
Fe! ast { INT_VEC, VEC_AD® ) NEQU .TEMP1 


MSG30, GET ADR { VEC_ALL J], .TEMP1, GET_BIT ( INT_VEC, VEC_ADR ] ); 
ERROF ( 0402, MSGOO, E1$REPORT ); 


END; 
TEMP1 = .TEMP1 ft 1; 
UB 


! WRITE WALKING O PATTERN INTO THE INTERRUPT VECTOR ADDRESS IN THE I/O PAGE 
$ REGISTER THEN READ AND COMPARE TO THE WRITE PATTERN 


TEMP] = #8'11111110'; 


C9 


CZQNACO DEQNA FUNCTIONAL TEST 5S -Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA )ZQNAS.BLI;2 


INCR INDEX FROM O TO 7 DO 
BEGIN 


BGNSUB; 

PuT_BIT { INT_VEC, VEC_ADR, .TEMP1 }; 

IF — aaa { INT_VEC, VEC_ADR ) NEQU .TEMP1 
N 


GIN 
PRINTB ( MSG5S9 ); 
PRINTB ( MSG65 ); 
PRINTB ( MSG30, CET. ADR { VEC_ALL }, .TEMP1, GET_BIT [ INT_VEC, VEC_AODR ]} ); 
ERRDF ( 0403, MSGOO, ELSREPORT ); 
END; 


TEMP1 = (( .TEMP1 * 1 ) + 2 ) AND #0'000377' ; 
ENDSUB; 
3 


ENOTST; 


MPUWWEDADSWNNNNOODASO uw 


-SBTTL $14 TEST 4 - INTERRUPT VECTOR gies TEST 
JSR a8 SAVE2 


@22,SP 
PC. RESET .DEQNA 

R1 INDEX 
A er . TABLE(R1), TEMP1 *C INDEX),« 
2 


REG.ADR,RO 
TEMP1,R2 
R2 


#176003 ,R2 

01774,14(RO) 

R2,14(RO) 

14(RO),(SP) *, TMP LOCATION 


TMP .LOCATION,¢ 


RO 
#177400,R0 
RO,R2 


3$ 
OMSGS9, -( SP) 
1, -(SP) 
SP,RO 


14 
@MsG6S , (SP) 
41,-CSP) 
P,RO 


14 
REG. ADR,RO 





CZQNACO DEQNA FUNCTIONAL TEST 
TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


000014 000010 
000010 


177400 


000000G 
000000G 000014 
000014 000014 
000014 

000000G 
000004 


00001 


000000G 
000001 
000000G 
000001 


000000G 
000014 000016 


3$: 


4$: 


DY 


5-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


14(RO), 10( SP) 
10(SP),RO 


14(RO),6(SP) 
TEMP1 ,R2 
6(SP),RO 

RO 


RO 
0177400,RO0 
eR2 
ae 
@MSGS59, -( SP) 
#1,-(SP) 


P,RO 


14 
@MsG65 , (SP) 
#1, -(SP) 
SP,RO 


14 
REG.ADR,RO 
14(RO),16(SP) 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA)ZQNA3.BLI;2 


¢, TMP LOCATION 
TMP .LOCATION,«¢ 


¢, TMP LOCATION 
«, TMP .LOCATION 
TMP .LOCATION,« 


SP, 


INDEX 
INDEX, ¢ 


*, INDEX 


, TMP .LOCATION 
TMP .LOCATION,* 


SP,« 


SP, 


+, TMP LOCATION 


SEQ 0107 
P 


(13) 


2009 


2012 


2013 


2014 


QNACO DEQNA FUNCTIONAL T 3 VAX-11 Bliss-16 V4.0-579 
fest 4 - INTERRUPT VECTOR ADDRESS TEST {[MAZURCZYK . DEQNA )ZQNA3.BLI;2 


000016 RO ’ : TMP .LOCATION, « 


3s 
0376, TEMP1 


#10,R1 
2 


.14(RO) 
14(RO),14(SP) 
TEMP1 ,R2 
14¢SP), RO 


RO 
#177400,RO 
Re 


7$ 
@MSGS9, -(SP) 
1,-(SP) 


14 

@MSG65, (SP) 
#1, -(SP) 
SP,RO 

14 
REG.ADR,RO 
14(RO),24(SP) 
24(SP),RO 


*, TMP .LOCATION 
*, TMP .LOCATION 
TMP .LOCATION, 3 


SP,« 


+, TMP.LOCATION 
TMP .LOCATION,* 


SP,* 


SP, 


«, TMP.LOCATION 
TMP .LOCATION, # 





: Routine Size: 
; Maximum stack depth per invocation: 21 words 


000000 
000000 
000004 


000006 
000010 
000012 


3; Routine Size: 
; Maximum stack depth per invocation: 2 words 


004737 
104466 
006000 


103773 
000207 


s 2046 1 


CZQNACO DEQNA FUNCTIONAL TEST 


TEST 4 - INTERRUPT VECTOR ADDRESS TEST 


177400 


000000G 
000000G 000030 
000014 000030 
000030 


000004 


000016 
000000G 7$: 


000022 


269 words, Routine Base: 


002072' T4:: 
1$: 
6 words, Routine Base: 


F9 


5-Jul-1964 1 
S-Jul-1984 1 


MOV ° - 30( SP) 
ADD 014, 30(SP) 

MOV (SP),-CSP) 
MOV 30, -(SP) 
MOV 04,-(SP) 

MOV SP ,RO 

TRAP 1 

TRAP 55 

-WORD 623 

- WORD 


#16,SP 
MOV TEMP1,RO 
RO 


ASL 

INC RO 

CLR TEMP 
MOVB RO, TEMP1 
TRAP 67 

ROR RO 

BLO 6$ 

DEC R1 

BNE $ 

ADD @22,SP 
RTS Cc 


ABSCODE$S + 2072 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK . DEQNA )JZQNA3.BLI;2 


*, TMP .LOCATION 
#, TMP .LOCATION 
TMP .LOCATION,«# 


SP,« 


INDEX 


-SBTTL T4 fEST 4 - INTERRUPT VECTOR ADDRESS TEST 


JSR PC,$T4 
66 


TRAP 

ROR RO 
BLO 1$ 
RTS PC 


ABSCODE$ + 3124 


2038 


2034 
2041 


2028 
1925 


2043 


G9 


ZQNAS CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
v01.0 TEST S - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 5-Jul-1984 14:02:06 (MAZURCZYK . DEQNA )ZQNA3.BLI;2 
s 2047 1 @SBTTL ‘TEST S - BOOT/DIAGNOSTIC PROM CHECKSUM TEST’ 
: 2048 1 fee 
: 2049 1 $ 
; 2050 1 ! TEST 5S: BOOT/DIAGNOSTIC PROM CHECKSUM TEST 
: 2051 1 : 
: oe 1 : DESCRIPTION: 
20 1 : 
; 2054 1 : This test verifies that the contents of the on-board ROM 
; e20ss 1 : (Boot/Diagnostic ROM) can be loaded to the host memory correctly. 
: 2056 1 3 Checksum is generated from the ROM date read and this checksum is 
s e0s7 1 2 compared to the checksum stored in the last word location of the 
; 20ose 1 : on-board ROM. If the operator specifies loop on error, the program 
; 2059 1 : re-executes the code that detected the error until tC is entered. 
: 2060 1 g 
; 2061 1 : 
; e062 1 : Hardware tested: Q-Bus to DMA interface 
; 2063 1 $ 18051 microprocessor 
; 2064 1 : 18051 ROM 
3 2065 1 8 CSR register 
3 2066 1 : Receive FIFO 
s 2067 i H Processing: 
FY 2068 1 H 
s 2069 1 : BEGIN 
s 2070 1 : reset device 
s oovn & : setup Receive Descriptor List(s) 
: 2072 1 1 set Boot/Diagnostic ROM and External loopback bits 
s 2073 1 : This moves ROM boot code into receive FIFO 
s 2074 1 $ weit 10 msec. or until RL ( bit 5 in CSR ) = O 
s e075 1 : check CSR status ( bit 5 ) and RCV Descriptor List status 
s 207% 1 : IF error 
s 2077 1 H THEN 
Fy 2076 1 $ print error message if not inhibited 
; 2079 1 $ IF 
s 2080 1 H clear Boot/Diagnostic ROM bit in CSR 
F 2081 1 : This moves contents of FIFO to host memory 
8 2082 1 $ weit 10 msec. or until RCV Descriptor status changed 
; 2083 1 : IF change in status 
; 2084 1 H THEN 
s 208s 1 : print error message if not inhibited 
; 2086 1 $ ENDIF 
3 2087 1 § compute ROM checksum and compare to checksum read from ROM 
’ 2088 1 8 IF not equal 
H 2089 1 g THEN 
Hy 2090 1 $ print error message if not inhibited 
s 2091 1 : IF 
s 2092 1 1 END 
s 2093 1 $-- 


SEQ 0110 
P 29 
(14) 


ee Gs Ge Ge Ge Ge Ge Gs Ge Ge Ge Ge Ge Ge Ge Gt Ge Ge Gt Ge Ge Ge Ge Ge GS Gt Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gt Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


"ance am aeaeceaaemaaaeacaeemacemneenenemnaeeareaamnaa arama caamaeammaaeaamamaceamammmaamaammmaaammmammammaaaa 


AWWWAAWWAWWWAWWWAWWW Ba UWUWWE DS DHWWWWWWWWWWWWWWWWWwWwWwWww 


CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 
TEST S - BOOT/DIAGNOSTIC PROM CHECKSUM TEST S-Jul-19864 14:02:06 
BGNTST; 

RESET _DEQNA ( ); 


) 
CLR_BUFFERS ( 2 @K ); 


*¢ 


COPY BOOT/DIAGNOSTIC PROM DESCRIPTOR LIST INTO WORI< AREA 


INCR INDEX FROM O TO BD_D_SIZE - 1 DO 
DESCR_LIST ( .INDEX, W_LEN ] = .68D_PROM_DESCR [ . INDEX ]; 


-I0P_TABLE { RLO_ADR } = RCV_D_LIST; 
-IOP_TABLE ({ RHI_ADR } = 0; 


PUT_BIT ( CSR, LB, EXT_LOOPBACK ); 
PUT_BIT ( CSR, BD, SET_IT ); 


DELAY ( K ); 
INCR INDEX FROM O TO TIME3_LIMIT DO 
St oat { CSR, RL ) EQLU ZERO 


BEGIN 
TEMP1 = . INDEX; 
EXITLOOP; 

END 


ELSE 
IF . INDEX EQLU TIMES_LIMIT 
THEN 


BEGIN 
PRINTB ( MSGS9 ); 


PRINTB ( MSG66, GET -BIT ( CSR_ALL } ); 
_— ( 0501, MSGOO, ERRORSREPORT ); 


VER_DESCR_STATUS ( ); 


"F INISH BOOT/DIAGNOSTIC PROM UPLOAD 


v ———_- 
BS 
4 


af a B' ¢ “te BD, CLR_IT ); 


terete 
' > 


CHECK IF RECEIVE STATUS CHANGED 


VER_DESCR_STATUS ( ); 
RESET_DEQNA ( ); 
TEMP3 = O; 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK . DEQNA)ZQNA3.BLI;2 


ee Ge Ge Ge Ge Gt Ge Ge Gt Gt Ge Gt Ge Ge Ge GF Ge Ge Gt Ge Ge Ge Ge Gt Ge Ge Ge Ge Ge Ge oF 
f 
~ 
o 
fw 
KMPH WWE SDL HaWAaWWE RP RWWWWWWWWWWWWwWwWwWw 


19 


CZQNACO DEQNA FUNCTIONAL T 


TEMPS = .DATA_ “ar { CHSUM_OFFSET + 1 J; 
( . TEMPS ¢ AND #X‘FFOO’; 
TEMPS = .DATA_ BUFFER CHSUM_ OFFSET. ) + . TEMPS; 


8) 
[ 

TEMP2 = .DATA_ o? 6 ’ .TEMP3 + 1 J; 
[ 


“4 
m 
3 
w 
a 


TEMP2 = ( TEMPe ¢t 8 AND #X'FFOO'; 
TEMP2 = DATA. BUFFER ~ TEMPS ) + .TEMP2; 
COUNTER = O; 

CHECKSUM = 0; 


INCR INDEX FROM O TO PROM_SIZE - 2 DO 
IF .COUNTER EQLU .TEMPS 


THEN 
—e = .COUNTER + 2 


e BEGIN 
CHECKSUM = .CHECKSUM + ( .DATA_BUFFER [ .COUNTER ] AND SX’'FF’ ); 
. » cpergs = .COUNTER + 1; 
; 


— EQLU ZERO ) OR ( .TEMP2 NEQU .CHECKSUM ) 
N 


BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSG59 ); 
PRINTB ( MSG67, ‘TEMPS, .TEMP2, .CHECKSUM ); 
ERRDOF ( 0502, MSGOO, E1$REPORT); 


EST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST S-Jul-1984 14:02:06 [MAZURCZYK , DEQNA JZQNA3.BLI;2 


ENDTST; 
-SBTTL $TS TEST S - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 
$75: JSR R1, $SAVES ; 
000010 SUB #10,SP 
JSR PC,RESET.DEQNA j 
004000 MOV #4000, -(SP) ; 
000000G JSR PC, CLR. BUFFERS 
CLR RO INDEX 
000000G 000000G 1$: MOV BD.PROM.DESCRC(RO),DESCR. LISTCRO); *#C INDEX), #( INDEX) 
000002 ADD #2,RO s *, INDEX 
000036 ar" RO, 036 3; INDEX,* 
L 1$ 
000000G 000004G MOV ORCV.D.LIST,@IOP. TABLE +4 ; 
000006G CLR BIOP. TABLE +6 ; 
000000G MOV REG. ADR,RO ; 
001410 000016 BIS #1410, 16(RO) H 
002000 MOV #2000.R1 3; *,$$TMP2 
2s: BEQ 5$ 
000000G MOV LSDLY,RO 3 *,$$TMP1 
BEQ 4$ 
000010 3$: CLR 10( SP) 3; $$TMP 


SEQ 0112 


Page 


31 
(15) 


CZQNACO DEQNA FUNCTIONAL TEST 


TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 


4$: 


S$: 
6$: 


002000 7$: 


000000G 9$: 
000019 000016 
10$: 


000010 11%: 
12$: 
000000G 13%: 


JI 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


RO,3$ 
Ri 


es 

Ri 

REG.ADR ,RO 
16(RO),2¢SP) 
#40,2(SP) 

7$ 

R1, TEMP1 

9$ 


R1,02000 


8&$ 

@MSG59, (SP) 
#1,-CSP) 
SP,.RO 

14 
REG.ADR,RO 
16(RO),6(SP) 
6(SP),(SP) 
@MSG66, -( SP) 
#2,-(SP) 
SP,RO 

14 

5S 

765 

MSGOO 
ERRORSREPORT 
06,SP 

Ri 

_ 


6 

PC, VER.DESCR.STATUS 
REG.ADR,RO 
#10,16(RO) 

#2000,R1 

13$ 

LSOLY,RO 

12$ 

10( SP) 

RO,11$ 

R1 

10$ 

PC,VER.DESCR. STATUS 
PC,.RESET.DEQNA 
TEMPS 


E 
DATA.BUFFER+7, TEMPS 
TEMP3,RO 
#10,RO0 
RO, TEMPS 
0377, TEMPS 
RO 
DATA.BUFFER+6,RO 
RO, TEMPS 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEQNA )ZQNA3.BLI;2 


$$TMP1,«@ 
$$TMP2 


INDEX 


*, TMP .LOCATION 
+, TMP .LOCATION 


INDEX, 
INDEX, 


SP,« 


*#, TMP .LOCATION 
TMP .LOCATION,* 


SP,* 


INDEX 
INDEX, # 


*,$$TMP2 
*,$$TMP1 
$$TMP 


$$TMP1,« 
$$TMP2 


SEQ 0113 
Page 32 
(15) 


2113 
2114 


2117 
2116 
2121 


2124 


2125 


2126 


2123 
2113 


2129 
2135 


2136 


000374 013701 


Routine Size: 
Maximum stack 


CZQNACO DEQNA FUNCTIONAL TEST 


K9 


5-Jul-1984 14:05:07 


TEST S - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 55-Jul-1984 14:02:06 
000000G MOV TEMPS ,R1 
000001G 000000G MOVB DATA. BUFFER+1(R1), TEMP2 
000001G CLRB TEMP2+1 
000000G MOV TEMP2,RO 
000010 ASH #10,R0 
MOV RO, TEMP2 
000377 000000G at o377, » TEMP? 
000000G BISB DATA.BUFFER(R1),RO 
000000G ADD » TEMP2 
000000G CLR COUNTER 
000000G CLR CHECKSUM 
007777 MOV @7777,R2 
00C:000G 14$: MOV COUNTER ,RO 
CMP RO,R1 
BNE 15$ 
090002 000000G ADD #2,COUNTER 
BR 16$ 
15$: CLR R3 
C00000G BISB DATA. BUFFER(RO),R3 
000000G ADD R3, CHECKSUM 
000000G INC COUNTER 
16$: SoB R2,14$% 
000000G MOV TENP2, RO 
BEG 17 
000000G CMP RO, ; CHECKSUM 
BEQ 18 
17$: MOV REG. ADR ,RO 
000016 000006 MOV 16(RO),6(SP) 
000000G MOV 6(SP),CSR.WORD 
MOV #MSG59,( SP) 
000001 MOV #1,-(SP) 
MOV SP,RO 
TRAP 14 
000000G MOV CHECKSUM, (SP) 
000000G MOV TEMP2, -( SP) 
000000G MOV TEMPS, -(SP) 
000000G MOV 9MSG67, -( SP) 
000004 MOV 04,-CSP) 
MOV SP,RO 
TRAP 14 
TRAP 55 
-WORD 766 
.WORD MSGOO 
. WORD E1$REPORT 
000012 ADD #12,SP 
000012 18$: ADD #12,SP 
RTS PC 
210 words, Routine Base: ABSCODE$ + 314% 


depth per invocation: 16 words 


SEQ 0114 

VAX-11 Bliss-16 V4.0-579 Page 33 
([MAZURCZYK .DEQNA]ZQNA3.BLI;2 (15) 
: 2151 
3 2152 
3 2153 
: 2155 
3 2156 
3: *, INDEX 2158 
Hy 2159 
3 2161 
: 2159 
3 2164 
: 2165 
3; INDEX,« 2158 
: 2168 
3 2171 
3 *,TMP.LOCATION 

; TMP.LOCATION,+# 

F 2172 
ry SP,* 

3 2173 
; SP, 

; 2174 
3 2170 
3 2045 


000010 
000012 


: Routine Size: 


004737 
104466 


006000 
103773 
000207 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 5 - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 


St 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


VAX-11 Bliss-16 V4.0-579 
{[MAZURCZYiK .DEQNA)ZQNA3.BLI;2 


-SBTTL TS TEST S - BOOT/DIAGNOSTIC PROM CHECKSUM TEST 


003140' TS:: 
1$: JSR PC,$T5S 
TRAP 66 
OR RO 
BLO 1$ 
RTS PC 
6 words, Routine Base: ABSCODE$ + 4004 


; Maximum stack depth per invocation: 2 words 


; 2178 1 


SEQ 0115 
Page 34 
(15) 


2175 


ON ed 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 6 - INTERRUPT SANITY TEST 
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5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
S-Jul-1984 14:02:06 (MAZURCZYK .DEQNA]JZQNA3.BLI;2 


*SBTTL ‘TEST 6 - INTERRUPT SANITY TEST’ 
See 


TEST 6: INTERRUPT SANITY TEST 
DESCRIPTION: 


This test verifies that DEQNA interrupts the processor only at 
the expected level ( 4 ) and not any other level. If the operator 
specifies loop on error, the program re-executes the code that 
detected the error until tC is entered. 


Hardware tested: Q-Bus to QTDC interface 
CSR register 
Q-Bus timeout logic 
QTOC interrupt logic 
Processing: 


BEGIN 
reset device 
set-up for NXM interrupt 
REPEAT for each processor priority level 
enable device interrupt (set CSR bit 6) 
force NXM interrupt 
check for expected CSR status 
IF error 
THEN 
om error message if not inhibited 


END 
ENDREPEAT 
ND 


SEQ 0116 


Page 


(16) 


N9 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 6 - INTERRUPT SANITY TEST 5-Jul-1984 14:02:06 [MAZURCZYK . DEQNAJZQNA3.BLI;2 


BGNTST; 


RESET_DEQNA ( ); 
SETVEC ( .HWP_TABLE [ VEC }, NXM_ reg, PRIO7 ); ! SET UP FOR AN NXM INTERRUPT 
rt ag TABLE { INT_VEC } = .HWP_TABLE { VEC }; 
MP_IOP_ADR = .HWP_TABLE [ ADOR }; 
COUNTER = 0; 


INCR PRIORITY FROM PRIOO TO PRIO7 BY #0'40' DO 
BE 


GIN 
SETPRI ( .PRIORITY ); SET PROCESSOR PRI LEVEL 
BGNSUB ; 

PUT "BIT ( CSR, IE, SET_IT ); ! ENABLE INTERRUPTS 

DELAY ( S ); : 

INTERRUPT _ FLG = CLEAR_FLG; 


.IOP_TABLE [ XLO_ADR ] = NXM_LO_ADR; ! WRITE LOW ADDRESS 
-IOP_TABLE [ XHI_ADR ] = NXM_HI_ADR; ! WRITE HIGH ADDRESS 


DELAY ( 2 ); 
GETPRI (€ TEMP1 ); 
TEMP1 = .TEMP1 t ( - S ); 


— EQLU WORD_LIMIT 
IF .PRIORITY GTRU PRIO3 
THEN 
BEGIN 
PRINTB ( MSGS9 ); 
PRINTB ( MSG69, TMP _ IOP_ADR, .TEMP1, .COUNTER ); 
ERRDF ( 0601, MSGOO, E1 REPORT ); 
END; 
Fn e EQLU ZERO 
od ea LEQU PRIO3 
* a { FLGWD ) AND XFLG_MASK ) NEQU XFLG_MASK 
N 
BEGIN 
PRINTB (€ MSGS5S9 ); 
PRINTB ( MSG69, .TMP_IOP_ADR, .TEMP1, .COUNTER ); 
—— € 0602, MSGOO, E1$REPORT ); 
3 
RESET_DEQNA ( ); 
ENDSUB; 
COUNTER = .COUNTER + 1; 
END; 
SETPRI ( PRIO3 ); ! SET PROCESSOR PRI LEVEL 


ENDTST; 


INTERRUPT SHOULD NOT OCCUR 


! INTERRUPT SHOULD OCCUR 


NWN WD BAD AAADAAHDAD YN AHAHAAAAHAHAAHAHAHAHAHHAAHS SPWWWWWWWwwe 





B10 


sea 0 
ZQNAS CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07  VAX-11 Bliss-16 v4.0-579 bee a 
vo1.0 TEST 6 - INTERRUPT SANITY TEST S-Jul-1984 14:02:06  (MAZURCZYK. DEQNA JZQNA3.BLI;2 (17) 
\SBTTL $76 TEST 6 - INTERRUPT SANITY TEST 

000000 004137 0000006 $16: JSR RI, SSAVE2 2177 
000004 005746 st -(5P) 
000006 008737 0000006 JSR PC, RESET. DEQNA ' sen 
000012 012746 000000G MOV «PROT, -¢SP) ; pote: 
000016 012746 000000G MOV ONXM. INT, -( SP) 
000022 013700 0000006 HOV «HP. TABLE, RO 
000026 016046 000002 HOV —-2¢ RO), -( SP) 
000032 012746 000003 23, - 
000036 104437 TRAP 
000040 013700 0000006 HOV «HWP, TABLE ,RO ' 2216 
000044 016077 000002 0000146 MOV 2 RO), TOP. TABLE+14 
000052 017737 0000006 0000006 HOV «HP. TABLE, THP.. TOP. ADR 2217 
000060 005037 0000006 CLR COUNTER 2318 

012702 0000006 MOV —-@PRIOO,R2 } # PRIORITY 3520 
000070 000570 BR 3 
000072 010200 1%: MOV R2,RO ¢ PRIORITY,¢ 2222 
000074 104441 TRAP 41 
000076 104402 2s: TRAP 
000100 013700 0000006 HOV. —- REG. ADR, RO 2226 
000108 152760 000100 000016 BISB 100, 16¢RO) 
000112 012701 000005 MOv 05, Ri 5 6, $8TMP2 2225 
000116 001410 33: EQS 
000120 013700 0000006 HOV —LSDLY,RO : 0, $8THPL 
000124 001403 BeQS3 
000126 005066 000010 4s: CLR —10¢SP) 5 8TH 
000132 077003 SoB RO,4$ 3 $$TMP1,« 
000134 005301 S$: DEC ; $STMP2 
000136 000767 BRS 
000140 905037 0000006 6$: CLR _—INTERRUPT.FLG ' 2226 
000144 012777 160000 0000106 MOV -@-20000, BOP. TABLE +10 2228 
000152 012777 000077 0000126 MOV «077, BOP. TABLE +12 ; 2229 
000160 012701 000002 HOV 02,1 ; 4, $8THP2 2231 
000164 001410 7%: BEQ~=—s108 
000166 013700 0000006 HOV —_LSDLY,RO ; 688TH 
000172 001403 BEG 9% 
000174 005066 000010 8s: CLR  10¢SP) ; 98TH 
000200 077003 SOB «ROB ; S$TMPLs 
000202 005301 9s: DEC 1 ; $$TMP2 
000204 000767 3R 7$ 
000206 104440 10$: TRAP 40 3 2232 
000210 072027 177773 ASH 0-5, RO 2233 
000214 010037 000000G MOV RO, TEMP1 
000220 023727 000000G 177777 cme INTERRUPT .FLG,9-1 3 2235 
000226 001033 BNE 118 
000230 020227 0000006 CHP sR, @PRIOS ; PRIORITY, « 2237 
000234 101430 BLOS «118 
000236 012716 0000006 MOV -«@MSG59, (SP) : 2240 
000242 012746 000001 MOV @1,-(SP) 
000246 010600 MOV SP,RO 3: SP,« 
000250 104414 TRAP 14 


{ ram ] 


013716 


s Routine Size: 
3: Maximum stack 


CZQNACO DEQNA FUNCTIONAL TEST 


TEST 6 - INTERRUPT SANITY TEST 


11$: 


000012 
000000G 128: 


13%: 
000000G 
000012 


152 words, 


#12, 
INTERRUPT .FLG 
12$ 

R2, OPRIOS 


128 
XMIT.D.LIST,RO 
037777,R0 

RO, @-40000 


12$ 

@MsGS9, (SP) 
#1,-C(SP) 

SP ,RO 


14 

COUNTER, (SP) 

TEMPi, -(SP) 

TMP .IOP.ADR, -( SP) 
(SP) 


1$ 
OPRIO3,RO 
41 

#12,SP 

PC 


Routine Base: ABSCODE$ + 4020 
depth per invocation: 15 words 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK . DEQNA )ZQNA3.BLI;2 


PRIORITY, 


SP,¢ 


SP,¢ 


#, PRIORITY 
PRIORITY,# 


2253 


2254 


2251 
2256 


2258 
2220 


2261 
2177 


D10 
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TEST 6 - INTERRUPT SANITY TEST S-Jul-1984 14:02:06 [MAZURCZYK , DEQNA )7QNA3.BLI;2 


maehe .SBTTL 16 TEST 6 - INTERRUPT SANITY TEST 
‘ PC, $16 ; 
66 


104466 


006000 
103773 
000207 


3; Routine Size: 6 words, Routine Base: ABSCODES + 4514 
; Maximum stack depth per invocation: 2 words 


8 2264 1 





E10 


IF Ethernet Carrier Sense bit ( bit 13 )-=1 
THEN 


print error message if not inhibited 
ENDIF 


2300 read CSR wh transmitting loopback packet 
2301 IF Ethernet Cerrier Sense bit (bit 13) = 0 
2302 THEN 

2303 print error message if not inhibited 
2304 ELSE 

2305 wait until Carrer Sense bit goes to 0 
2306 ENDIF 

2307 read CSR 

2308 IF Ethernet Cerrier Sense bit (bit 13) = 1 
2309 THEN 


ow error message if not inhibited 
I 
END 


ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
v01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA )ZQNA3.6LI;2 
s 2265 1 “@SBTTL ‘TEST 7 - ETHERNET CARRIER SENSE TEST’ 
s 2266 1 fee 
2 2267 1 
; 2268 1 TEST 7: ETHERNET CARRIER SENSE TEST 
s 2269 1 
s ere 5 DESCRIPTION: 
2271 1 
: 2272 1 This test verifies that the DEQNA can transmit external loopback 
s e273 1 peckets and if not faulty FRU is can be found by executing this 
: 2e74 1 by implementing the instructions printed on the operator's console. 
: 2275 1 
s 227% 1 In order to run this test successfully the operator has to make 
; e277 1 sure that DEQNA is connected to the transceiver. If the operator 
3 2278 1 specifies loop on error, the program re-executes the code that detected 
s e279 1 the error until tC is entered. 
; e260 1 
; 2281 1 Hardware tested: Cerrier Sense circuitry 
; 2262 1 Encode/Decode ( ED ) chip 
s 2283 1 
: 2234 1 Processing: 
F 2285 1 
s 2286 1 BEGIN 
s 2267 1 reset device 
s 2268 1 select external loopback mode 
8 2289 1 check external hardware 
s 2290 1 IF bad hardware 
is 2291 1 THEN 
Fy 2292 1 print error message if not inhibited 
[= 2. 2 ENDIF 
; 2294 1 read CSR 
H 1 
Hy 1 
H 1 
; 1 
; 1 
Hy 1 
H 1 
H 1 
H 1 
H 1 
A 1 
H 1 
H 1 
H 1 
H 1 
H 1 
F 1 
H 1 
F 1 


transmit a unchained loopback packet ( ETHERNET format ) 
1ie 


SEQ 0121 
P 40 
(18) 


ee Ge Ge Ge Ge Gt Gt Ge Ge G: GH Ge GH Gt Ge Ge Ge Ge Ge Ge Gs Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gt Gs Gs GF GS Ge Ge Se GF Gs Ge Ge Ge GF Ge 


VIVAL SHaDAD HLL SSS HL SAS SLSAS S&L AUMUVUIUMUAGAAAIHVUUAAAAHKHVYVUYUU SUS oSuwuaw 


CZQVACO DEQNA FUNCTIONAL TEST 
TES. 7 - ETHERNET CARRIER SENSE TEST 


F10 


tare BoE oe 


:07 VAX-11 Bliss-16 V4.0-579 
S-Jul-1984 14:02: 


06 [MAZURCZYK . DEQNA ]ZQNA3.BLI;¢ 


.SWP_LBC EQLU ZERO ) 


BGNTST; 
IF .SWP_ILOOP 
THEN 
BEGIN 
RESET_DEGQNA ( ); 
IF ( NOT GET_BIT [ CSR, xC ) ) AND ¢ 
THEN 
BEGIN 
CSR_WORD = GET_BIT { CSR_ALL ]; 
SELECTONE .XC_FLAG OF 
SET 
{0}: 
BEGIN 
XC_FLAG = .XC_FLAG « 1; 
PRINTB ( MSGS5S9 ); 
PRINTB ( MSG47 ); 
ERRDOF ( 0704, S600, ERRORSREPORT ); 
; END; 
BEGIN 
XC_FLAG = ZERO; 
PRINTB ( MSGS9 ); 
PRINTB ( MSG42 ); 
e ERRDOF ( 0705, MSG00, ERRORSREPORT ); 
3 
TES; 
EXIT_TST; 
END 
ELSE 
XC_FLAG = ZERO; 
RE 


Te TS IN EXTERNAL LOOPBACK 


e@rteter+e 
=" 


RESET_DEQNA ( ); 
PREP_FOR_SETUP ( ); 
INCR INDEX1 Fru’ 1 TO 14 DO 


SET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
Ss MODE . 


WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 


BGNSUB; 
XMIT_SETUP_PACKET ( N_MODE ); 
ENDSUB; 


ERR_FLAG = ZERO; 
INCR INDEX2 FROM 0 TO 19 DO 
SEND. wet .. ( 3 
DELAY ¢ 100 ) 
CSR_WORD = GET. BIT ( CSR_ALL ) 


5 
IF € .CSR_WORD AND #0'100220' ) EQLU #0’ 100220' 


SEQ on a 


Page 


«9 


G10 


ZQNAS3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 
v01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 5-Jul-1984 14:02:06 

2367 THEN 

2368 BEGIN 

2369 ERR_FLAG = ZERO; 

2370 EXITLOOP; 

2371 END 

2372 ELSE 

2373 ERR_FLAG = ONE; 

2374 END; 

2375 

2376 IF .ERR_FLAG 

2377 THEN 

2378 BEGIN 

2379 SELECTONE .ERR_COUNT OF 

2380 SET 

2381 {01}: 

2382 BEGI 

2383 ERR_COUNT = 1; 

2384 PRINTB ( MSG59 ); 

2385 PRINTB ( MSG3S5 ); 

2386 PRINTB ( MSG36 ); 

2387 ERRDF ( 0706, HSGOO, ERRORSREPORT ); 

2388 END; 

2389 (1): 

2390 


2394 PRINTB ( MSG38 ); 

2395 ERRDF ( 0707, MSGOO, ERRORSREPORT ); 
2396 END; 

2397 : 

2398 BEGIN 

2399 ERR_COUNT = 3; 

2400 PRINTB ( MSGS9 ); 

2401 PRINTB ( MSG39 ): 

2402 PRINTB ( MSG40 ); 

2403 ERRDF ( 0708, MSGOO, ERRORSREPORT ); 
2404 END; 

2405 {3 ): 

2406 BEGIN 

2407 ERR_COUNT = 0; 

2408 PRINTB ( MSG59 ); 

2409 PRINTB ( MSG41 ); 

2410 ERRDF ( 0709, MSGOO, ERRORSREPORT ); 
2411 END; 

2412 (4): 

2413 BEGIN 

2414 ERR_C . s 

2415 PRINTB ( MSG59 ); 


ee Ge G+ Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gt Ge Ge Ge Gt GH Ge GH GH Ge Ge Ge Ge G+ GH Ge Ge Ge Ge Ge GH Ge GF Ge GH Ge Ge Ge GH Ge Ge Ge Ge Ge Ge 
wr 
Www 
oo 
wt 
PMA DADADMAUIADAAHMUA HAHAHAHA MNMUAADAAAHUVUAAHHHHOUUUUS & a aUYVIAARAYW 


TES; 


ERROF ( 0710, MSGOO, ERRORSREPORT ); 


ND; 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEGNA )ZQNA3.BLI;2 


SEQ 012 
Page 


3 
Bo 
(19) 


H10 
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EXIT_TST; 
END 


ELSE 
IF .ERR_COUNT GTRU ZERO 
THEN 


BEGIN 
CSR_WORD = GET_6IT . CSR_ALL ); 
SELECTONE . .ERR_COUNT OF 


6); 
ERRDF ( 0713, MSGOO, ERRORSREPORT ); 
END; 
TES; 
EXIT_TST; 
END; 


XC_FLAG = ZERO; 
ERR_COUNT = ZERO; 


BGNSUB ; 
INCR INDEX2 FROM O TO TIME1_LIMIT DO 
BEGIN 
RESET_DEQNA ( ); 
TEMPS = ,INDEX2; 


“HeeK ETHERNET CARRIER SENSE BIT ( CA - BIT 13 ) IN THE CSR. CA SHOULD BE 
T TO ‘1' WHILE THE DEQNA IS TRANSMITTING. IF CA ISN'T SET TO ‘1' WITHIN 
THe EXPECTED TIME LIMIT, ERROR MESSAGE IS PRINTED OUT. 


SEND_TEST_PACKET ( ); 
INCR INDEX FROM O TO TIME1L_LIMIT DO 


NN NINN NNN SY SN OD DHE HSHSHSVUNUMAAGHAHVUVYVGADADAHVVADAIROHHYNYYUU AS au 





DAD NW OOD NIN SIN SIN SAN NNO OO NOOO SIN SIN SSIS INNO OOONNYOOOO4N 


CZQNACO DEQNA FUNCTIONAL TEST 
7 - ETHERNET CARRIER SENSE TEST 


I10 


5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
S-Jul-1984 14:02:06 [MAZURCZYK . DEQNA JZQNA3.BLI;2 


IF GET_BIT [ CSR, CA } EQLU ONE 
THEN 


BEGIN 
TEMP2 = GET_BIT [{ CSR_ALL ]}; 
EXITLOOP; 


LSE 
IF .INDEX EQLU TIME1_LIMIT 
THEN 


GIN 
PRINTB ( MSGS9 ); 
PRINTB ( MSG19, GET_BIT [ CSR_ALL ]} ); 
— ( 0701, MSGOO, ERRORSREPORT ); 
é 


* 

NOW CHECK IF THE CA BIT RESETS TO ‘0’ WHEN THE DEQNA COMPLETES TRANSMITTING 
LOOPBACK PACKET. PRINT ERROR MESSAGE IF LOOPBACK PACKET TRANSMISSION 
EXCEEDS SELECTED TIME LIMIT. 


°e ce te sere 
‘ + 


INCR INDEX FROM O TO TIME2_LIMIT DO 
al ani { CSR, CA j EQLU ZERO 


BEGIN 
TEMPS = GET_BIT ( CSR_ALL ]); 
EXITLOOP; 

END 


ELSE 
IF .INDEX EQLU TIME2_LIMIT 
THEN 


N 
PRINTB ( MSGS9 ); 
PRINTB ( MSG20, GET_BIT [ CSR_ALL } ); 
— ( 0702, MSGOO, ERRORSREPORT ); 
° 


"CHE CK RECEIVE INTERRUPT REQUEST BIT ( RI - BIT 15 ) TO VERIFY THAT DEQNA 
_ACTUALLY TRANSMITTED LOOPBACK PACKET. 


ee s@ te te 


DELAY ( 50 ); 
IF GET_BIT [ CSR, RI ) EQLU ONE 
THEN 
BEGIN 
TEMP4 = GET_BIT [ CSR_ALL ]}; 
EXITLOOP; 
END; 


END; 
IF . TEMPS EQLU TIME1_LIMIT 


J10 
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THEN 
BEGIN 
PRINTB ( MSGS9 ); 
PRINTB ( MSG21, GET -BIT [ CSR_ALL } ); 
ERRDF ( 0703, MSGOO, ERRORSREPORT ); 
; 


<N 

-r 

— 
w 


oe { ERRSU ] EQLU 1 ) AND ( .XMIT_D_LIST [ ABORT }] EQLU 1 ) 
N 


BEGIN 

PRINTB ( MSGS9 ); 

PRINTB (€ MSG71 ); 

Beat € 0714, MSGOO, ERRORSREPORT ); 
END; 


*¢ 
COMPARE STATUS REGISTERS TO EXPECTED VALUES 


CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK 3 8 
XMIT_D_LIST { STWD1 ] = .XMIT -D_LIST { STWD1 ] AND 
CHK _XMIT_STATUS ( XFLG_ STATUS, XWD11_STATUS ); ! 
CHK-RCV_STATUS ( RFLG_STATUS, RWD1_STATUS ); ! 


IF .XMIT_D_LIST { TOR ] EQLU ZERO 
THEN 

BEGIN 
PRINTB ( MSGS59 ); 
PRINTB ( MSGS58 ); 
ERRDF ( 0715, MSGOO, ERRORSREPORT ); 

END; 

ENDSUB; 


END; 
ENDTST; 


0‘ 100220', 0'100220' 
#0'177377'; 

0’ 140000’, 0'000000' 
0’ 140000‘, 0‘'020000' 


3 
° 
° 
3 
é 
6 
° 
‘ 
a 
° 
é 
3 
a 
a 
é 
3 
‘ 
3 
3 
: 
r 
é 
3 
3 
e 
3 
° 
o 
; 
é 
° 
. 
é 
‘ 
. 
‘ 


HF ABADDNNNSNDADHAAADHAADHAADANNNNDNDOAOD NNO 


Sart, $77 TEST 7 - ETHERNET CARRIER SENSE TEST 
R AVE2 H 


1,$ 
#34 ,SP 
+ tical 
PC RESET .DEQNA 
REG.ADR,RO 


16(RO), (SP) *, TMP .LOCATION 
+ raat cataat *«, TMP.LOCATION 


$ 
heme 
(SP),2(SP) +, TMP.LOCATION 


(SP),CSR.WORD TMP .LOCATION, + 
XC.FLAG,RO 
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SEQ 0127 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 P 
v01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 5-Jul-1984 14:02:06  [MAZURCZYK.DEQNA]JZQNA3.BLI;2 
000064 001023 BNE 1$ ‘ 
000066 005237 0000006 INC XC .FLAG ; 
000072 012746 0000006 MOV @MSGS9, -( SP) ; 
000076 012746 000001 MOV #1,-(SP) 
000102 010600 MOV SP RO ; SP,« 
000104 104414 TRAP = (14 
000106 012716 0000006 MOV oMSG47,(SP) , 
000112 012746 000001 MOV #1,-(SP) 
000116 010600 MOV SP RO ; SP,« 
000120 104414 TRAP = 14 
000122 104455 TRAP = 5S , 
000124 001300 .WORD 1300 
000126 0000006 “WORD MSGOO 
000130 0000006 “WORD ERRORSREPORT 
000132 000425 BR 2$ ; 
000134 020027 000001 1s: CMP RO, @1 ; 
000140 001024 BNE 3$ 
000142 005037 0000006 CLR XC.FLAG : 
000146 012746 000000G MOV @MSG59, -(SP) : 
000152 012746 000001 MOV #1,-(SP) 
000156 010600 MOV SP RO ; SP,« 
000160 104414 TRAP 14 
C00162 012716 0000006 MOV oMSG42, (SP) : 
000166 012746 000001 MOV #1,-(SP) 
000172 010600 MOV SP RO ; SP,« 
000174 104414 TRAP = 14 
000176 104455 TRAP = 5S : 
000200 001301 .WORD 1301 
000202 0000006 “WORD  MSGOO 
000204 0000006 “WORD ERRORSREPORT 
000206 062706 000006 2s: ADD #6,SP : 
000212 104463 3$: TRAP = 63 : 
000214 000137 007046' 4$: JMP 49$ : 
000220 005037 0000006 5$: CLR XC.FLAG ; 
000224 004737 0000006 JSR PC, RESET .DEQNA ; 
000230 004737 0000006 JSR PC, PREP .FOR. SETUP : 
000234 012701 000001 MOV #1,R1 3 #,INDEX1 
000240 010146 6$: MOV R1, -(SP) ; INDEX1,¢ 
000242 012746 000023 MOV #23, -(SP) 
000246 004737 0000006 JSR PC,WRT. STATION. ADR 
000252 022626 CMP (SP)+,(SP)« 
000254 005201 INC Ri ; INDEX1 
000256 020127 000016 CMP R1,016 ; INDEX1,« 
000262 003766 BLE 6s 
000264 104402 7$: TRAP 92 : 
000266 012746 000200 MOV #200, -(SP) : 
000272 004737 0000006 JSR PC ,XMIT. SETUP.PACKET 
000276 005726 TST (SP )« : 
000300 104467 TRAP = 67 ; 
000302 006000 ROR RO 
000304 103767 BLO 7$ 
000306 005037 0000006 CLR ERR.FLAG : 


*, INDEX2 


000312 012702 000024 MOV #24 ,R2 





L10 





SEQ 0 
CZQNSCO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 heey, 47 
TEST 7 - ETHERNET CARRIER SENSE TEST 55-Jul-1984 14:02:06 (MAZURCZYK .DEQNA]ZQNA3.B6LI;2 (19) 
004737 000000G 8$: JSR PC, SEND. TEST.PACKET ; 2363 
012701 000144 MOV $144,R1 3 *,$$TMP2 2364 
001410 9$: BEQ 12$ 
013700 000000G MOV LSOLY,RO 3 *,$$TMPL 
001403 BEQ 11$ 
005066 00°32 10$: CLR 32(SP) 3 $$TMP 
077003 SOB RO,10$ 3; $$TMP1,« 
005301 11$: DEC R1 3 $$TMP2 
000767 BR 9$ 
013700 000000G 12$: MOV REG. ADR,RO ; 2365 
016066 000016 000004 MOV 16(RO),4(SP) : *,TMP.LOCATION 
016637 000004 000000G MOV 4(SP),CSR.WORD ; TMP.LOCATION,« 
016600 000004 MOV 4(SP),RO ; CSR.WORD,* 2366 
042700 077557 BIC 977557 ,RO 
020027 100220 CMP RO, #- 77560 
001003 BNE 13$ 
005037 000000G CLR ERR.FLAG ; 2369 
000404 BR 14$ 3 2368 
012737 000001 000000G 13%: MOV #1,ERR.FLAG ; 2373 
077243 SOB R2,8$ 3; INDEX2,+« 2361 
013701 000000G 14%: MOV ERR.COUNT,R1 : 2379 
032737 000001 000000G BIT #1,ERR.FLAG ; 2376 
001002 BNE 15$ 
000137 005612’ JMP 23$ : 
005701 15$: TST R1 3 2381 
001032 BNE 16$ 
012737 000001 000000G MOV #1,ERR.COUNT : 2383 
012746 000000G MOV @MSG59, -CSP) 3 2384 
012746 000001 MOV #1,-(SP) 
010600 MCV SP,RO 3; SP, 
104414 TRAP 14 
012716 000000G MOV @MSG35,(SP) : 2385 
012746 000001 MOV #1,-(SP) 
010600 MOV SP ,RO 3; SP,* 
104414 TRAP 14 
012716 000000G MOV #MSG36,(SP) Q 2386 
012746 000001 MOV #1, -(SP) 
010600 MOV SP ,RO 3; SP,« 
104414 TRAP 14 
104455 TRAP 55 ; 2387 
001302 -WORD 1502 
000000G -WORD MSGOO 
000000G .WORD ERRORSREPORT 
000471 BR i6$ 3 2382 
020127 000001 16%: CMP R1,@1 3 2389 
001032 BNE 17$ 
012737 000002 000000G MOV #2,ERR.COUNT : 2391 
012746 000000G MOV #MSG59, -( SP) 3 2392 
012746 000001 MOV #1,-(SP) 
010600 MOV SP,RO ; SP,* 
104414 TRAP 14 
012716 000000G MOV #MSG37,(SP) ; 2393 
012746 000001 MOV #1,-(SP) 


M10 


SEQ 0129 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Mee 48 
vo1.0 TEST 7 - ETHERNET CARRIER SENSE TEST 5-Jul-1984 14:02:06 § [MAZURCZYK.DEQNAJZQNA3.BLI;2 (19) 
000574 010600 MOV = SP,,RO ; SP,# 
000576 104414 TRAP = «14 
000600 012716 0000006 MOV @MSG38 (SP) : 2394 
000604 012746 000001 MOV #1,-(SP) 
000610 010600 MOV SP ,RO ; SP,« 
000612 104414 TRAP 14 
000614 104455 TRAP) = 555 ‘ 2395 
000616 001303 .WORD 1303 
000620 .WORD M 
000622 000000G .WORD ERRORSREPORT 
000624 000434 BR 18$ : 2390 
000626 020127 000002 17$: CMP R1,@2 ; 2397 
000632 001034 BNE 19$ 
000634 012737 000003 0000006 MOV #3,ERR.COUNT : 2399 
000642 012746 000000G MOV @MSGS9, -( SP) : 2400 
000646 012746 000001 MOV #1,-(SP) 
000652 010600 MOV SP,RO ; SP,« 
000654 104414 TRAP = «14 
000656 012716 000000G MOV @MSG39, (SP) ’ 2401 
000662 012746 000001 MOV #1,-(SP) 
000666 010600 MOV SP ,RO ; SP,« 
000670 104414 TRAP = «14 
000672 012716 000000G MOV #MSG40, (SP) ’ 2402 
000675 012746 000001 MOV #1,-(SP) 
000702 010600 MOV SP ,RO : SP,«* 
000704 104414 TRAP = «14 
000706 104455 TRAP 3s Sj ; 2403 
000710 001304 -WORD 1304 
000712 -WORD MSG 
000714 0000006 .WORD ERRORSREPORT 
000716 062706 000010 18$: ADD #10,SP : 2398 
000722 000455 BR 22$ ; 2379 
000724 020127 000003 19$: CMP R1,03 ; 2405 
000730 001023 BNE 20$ 
000732 005037 000000G CLR ERR. COUNT ; 2407 
000736 012746 0000003 MOV @MSGS9, -( SP) ’ 2408 
000742 012746 000001 MOV #1,-(SP) 
000746 010600 MOV SP,RO ; SP,* 
000750 104414 TRAP = «14 
000752 012716 000000G MOV #MSG41,(SP) : 2409 
000756 012746 000001 MOV #1,-(SP) 
000762 010600 MOV SP ,RO ; SP,« 
000764 104414 TRAP = «14 
000766 104455 TRAP) ss Sj ; 2410 
000770 001305 .WORD 1305 
000772 000000G .WORD MSGOO 
000774 0000006 .WORD ERRORSREPORT 
000776 000425 BR 21$ ’ 2406 
001090 020127 000004 208: CMP R1,04 ; 2412 
001004 001024 BNE 22$ 
001006 005037 000000G CLR ERR. COUNT ; 2414 
001012 012746 000000G MOV #MSG59, -( SP) : 2415 
001016 012746 000001 MOV #1,-(SP) 
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a SP,* 
A 
SP ,* 


MSGOO 
ERROR $REPORT 
#6, Pp 

63 

28$ 

R1 

29$ 

REG.ADR,RO 

16(RO),6(SP) *, TMP.LOCATION 
pr ceatanatee TMP .LOCATION, * 
24$ 

#4,ERR.COUNT 

@MSG59, -C SP) 

#1,-CSP) 

SP,RO 


14 

@MSG43, (SP) 
#1,-(SP) 
SP,RO 


14 
#MSG44 ,(SP) 


14 
#MSG42, (SP) 
000001 #1,-CSP) 
SP,RO 
14 
104455 55 








Bil 


SEQ 013 

ZQNA3 CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Maer 50 
v01.0 TEST 7 - ETHERNET CARRIER SENSE TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA JZQNA3.8LI;2 (19) 
001256 001310 -WORD 1310 
001260 . WORD 
001262 0000006 .WORD ERRORSREPORT 
001264 25 BR Fy 2438 
001266 020127 000004 258: CMP R1,04 : 2444 
001272 001024 BNE 27% 
001274 005037 000000G CLR ERR. COUNT : 2446 
001300 012746 000000G MOV oMSG59, -( SP) : 2447 
001304 012746 000001 MOV #1,-(SP) 
001310 010600 . ; SP, 
001312 104414 TRAP 
001314 012716 000000G MOV OMSG46 (SP) : 2448 
001320 012746 000001 MOV #1, -(SP) 
001324 010600 MOV ° : SP,« 
001326 104414 TRAP 14 
001330 104455 TRAP 5 : 2449 
001332 001311 -WORD 1311 
001334 ‘ 
001336 -WORD ERRORSREPORT 
001340 062706 000006 26%: 06, : 2445 
001344 104463 278: TRAP 63 : 2451 
001346 000137 007046’ 28%: JUMP 49% : 2425 
001352 005037 000000G 29%: CLR XC. FLAG 3 2455 
001356 005037 000000G CLR ERR. COUNT : 2456 
001362 104402 30%: TRAP 
001364 005002 CLR R2 3 INDEX2 2459 

004737 0000006 31s: JSR PC, RESET.DEQNA : 2461 
001372 010237 000000G MOV R2, TEMPS 3 INDEX2,¢ 2462 
001376 004737 000000G JSR PC, SEND. TEST. PACKET ; 2470 
001402 005001 cLR R1 3 INDEX 2472 
001404 013700 000000G 32%: MOV REG.ADR,RO ; 2473 
001410 016066 000016 000010 MOV 16(RO),10(SP) ; #,TMP.LOCATION 
001416 032766 020000 000010 BIT 20000, 10( SP) ; *,TMP.LOCATION 
001424 001407 BEQ 33% 
001426 016666 000010 000012 MOV 10(SP),12¢SP) ; *,TMP.LOCATION 2476 
001434 016637 000012 000000G MOV 12(SP), TEMP2 ; TMP.LOCATION,+¢ 
001442 000440 BR 35$ ; 2475 
001444 020127 000200 33$: cmp R1,0200 ; INDEX,« 2480 
001450 001031 BNE 34$ 
001452 012746 0000006 MOV @MSG59, -( SP) : 2483 
001456 012746 000001 MOV 01,-(SP) 
001462 010600 MOV SP ,RO ; SP,« 
001464 104414 TRAP 14 
001466 013700 000000G MOV REG. ADR,RO : 2484 
001472 016066 000016 000020 MOV 16(RO),20(SP) 3 ¢,TMP.LOCATION 
001500 016616 000020 MOV 20(SP),( SP) 3; TMP.LOCATION,* 
001504 012746 000000G MOV MSG19, -( SP) 
001510 012746 000002 MOV @2,-(SP) 
001514 010600 MOV SP ,RO 3 SP,« 
001516 104414 TRAP 14 
001520 104455 TRAP 55 : 2485 
001522 001275 «WORD 1275 
001524 0000006 .WORL M™SGOO 


| o44 


023727 


CZQNACO DEQNA FUNCTIONAL 


TEST 


TEST 7 - ETHERNET CARRIER SENSE TEST 


000010 


000016 000016 
020000 000016 


000016 000020 
000000G 


000000G 
000016 000026 


000000G 
000016 000024 


000024 000026 
000000G 


00000G 000200 


37$: 


38$: 


39$; 
40$: 


41%: 


42%: 


43%: 


44%: 


453%: 


Ci 


S-Jul-1984 14 
S-Jul-1984 14 


ERROR $REPORT 
saa 


R1,200 
32% 


R1 

REG.ADR,RO 
16(RO),16(SP) 
ate 16( SP) 


16¢SP), 20( SP) 
zo. SP), TEMPS 


39 
R1,02000 


38$ 
@MSGS9, -( SP) 
#1,-(SP) 

14 

REG. ADR,RO 
16(RO), 26(SP) 
26( SP), (SP) 
OMSG20, -(SP) 
62,-(SP) 
SP,RO 

14 

5S 

1276 


MSGOO 

ERROR $SREPORT 
#10,SP 

R1 

R1, 02000 

36 


REG. ADR,RO 
| +9 Nae 24(SP) 


2aCsP), 26( SP ) 
26(SP), TEMP4 


21% 
TEMPS , #200 


VAX-11 Bliss-16 V4.0-579 
{MAZURCZYK . DEQNA JZQNA3.BLI;2 


INDEX 
INDEX,# 


INDEX 


+, TMP .LOCATION 
«, TMP .LOCATION 


«, TMP .LOCATION 
TMP .LOCATION,« 


INDEX, 


SP ,¢ 


«, TMP .LOCATION 
TMP .LOCATION, « 


SP,¢« 


INDEX 
INDEX,¢ 


*,$$TMP2 
*,$$TMPlL 

$$TMP 

$$TMP1,« 
$$TMP2 

¢, TMP LOCATION 


*«, TMP .LOCATION 
TMP .LOCATION, + 


INDEX2 
INDEX2,¢ 


2494 


2515 


2517 
2520 


2519 
2459 


2525 
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SEQ 013 
CZQNACO DEGNA FUNCTIONAL TEST S-Jul-1984 14:05:07 _- VAX-11 Bliss-16 v4.0-579 Nag 
TEST 7 - ETHERNET CARRIER SENSE TEST S-Jul-1984 14:02:06  [MAZURCZYK.DEQNAJZQNA3.BLI;2 (19) 

@15G59, -(SP) 
0000006 oMsGS9. - 8 
000001 01. -(SP) 252 
SP ,RO SP,« 

062026 013700 000000G ; : 

002082 016066 000016 000034 MOV —s«-:16(RO), $4 SP) ; #, TMP. LOCATION 

002080 016616 000034 MOV —«-34(SP);(SP) ; THP.LOCATION, « 

002044 012746 0000006 MOV @MSG21,-( SP) 

002050 012746 000002 MOVs @2, - CSP) 

002054 010600 MOV —s SP"RO : SP6 

002056 104414 TRAP 14 

002060 104455 TRAP «5S , 2530 

002062 001277 WORD 1277 

002064 "WORD  MSGOO 

3066 "WORD  ERRORSREPORT 

002070 062706 000010 ADD ~—s«@10 SP , 2527 

002074 032737 040000 0000106 46%: BIT 040000, XMIT.D.LIST+10 : 3534 

002102 001426 BEQ Ss 

002104 032737 001000 0000106 BIT #1000, XMIT.D.LIST+10 

002112 001422 BEQ s7$ 

002114 012746 0000006 MOV —s-@MSGS9, -( SP) , 2537 

002120 012746 000001 MOVs 1, -( SP) 

002124 010600 MOV —s SP; RO  SP.e 

002126 104414 TRAP 14 

002130 012716 0000006 MOV —s-@MSG71, (SP) : 2538 

002134 012746 000001 MOVs @1, -(SP) 

002140 010600 MOVs SPO : SP.s 

002142 104414 TRAP 14 

002144 104455 TRAP «55 , 2539 

002146 001312 WORD 1312 

002150 0000006 "WORD MSGOO 

002152 0000006 "WORD  ERRORSREPORT 

002154 062706 000006 ADD «06, SP ‘ 2536 

002160 012746 100220 47%: MOV @-77560,-(SP) ; 3546 

002164 011646 MOVs (SP), -( SP) 

002166 004737 0000006 JSR CPC CHK. CSR. STATUS 

002172 042737 000400 0000106 BIC 0400, XMIT.D.LIST+10 ; 2547 

002200 012716 140000 MOV —«-@-40000, (SP) ; 3548 

002204 005046 CLR = SP) 

002206 004737 0000006 JSR PC. CHK. XMIT. STATUS 

002212 012716 140000 MOV —s-@ 40000, (SP) ; 2549 

002216 012746 020000 MOV —«-@20000, -(SP) 

002222 004737 000000G JSR PC, CHK" RCV. STATUS 

002226 032737 037777 0000126 BIT «037777 .XMIT_D.LIST+12 ; 2551 

002234 001021 BNE «48 

002236 012716 0000006 MOV —s@MSGS9, (SP) , 2554 

002242 012746 000001 MOV s«@1, (SP) 

002246 010600 MOV —s SP"RO ; SP,s 

002250 104414 TRAP 14 

002252 012716 0000006 MOV —«@MSG58, (SP) ; 2555 

002256 012746 000001 MOVs @1, -( SP) 

602262 010600 MOVs SP"RO » ae 


Ell 


> DEQNA FUNCTIONAL TEST VAX-11 Bliss-16 V4.0-579 
TEST 7 - ETHERNET CARRIER SENSE TEST 5- Jul - 1984 {[MAZURCZYK .DEQNA )ZQNA3.BLI;2 


TRAP i4 

SS 

1313 

MSGOO 

ERROR SREPORT 


TRAP 


006112" 
000034 49$: 


3: Routine Size: 618 words, Routine Base: ABSCODES 
3; Maximum stack depth per invocation: 25 words 


T7 TEST 7 - ETHERNET CARRIER SENSE TEST 
004737 004530’ 


104466 


006000 
103773 
000207 


Routine Size: 6 words, Routine Base: ABSCODES + 7054 
Maximum stack depth per invocation: 2 words 


2562 1 
2563 1 





Fil 


ZQNA3 CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1984 14:05: 
v01.0 TEST 8 - STATION ADDRESS RAM TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNAJZQNA3.6LI;2 
; 2564 1 SSBTTL ‘TEST 8 - STATION ADDRESS RAM TEST’ 

: 2565 1 fee 

: 2566 1 : 

s 2567 1 ! TEST 8: STATION ADDRESS RAM TEST 

; 2568 1 $ 

; 2569 1 ! DESCRIPTION: 

; 2570 1 : 

: e571 1 2 This test verifies that Station Address RAM has no static faults. 
s; e572 1 2 The host writes and then reads date patterns to all of the 

: 2573 1 : addressable RAM ( 128 decimal bytes ). The data is checked to see 
; 2574 1 2 thet the data pattern received is the same as the date pattern 
: 2575 1 : transmited. This test continues until all the data patterns are 
.s £m § ? exhausted. If the operator specifies loop on error, the program 
; oats 1 8 re-executes the code that detected the error until fC is entered. 
: 1 $ 

; 2579 1 : The following BINARY patterns are used: 

; 2580 1 H 

5s 26h & H 11111111 00000000 

3 2582 1 : 10101010 01010101 

3 2583 1 : 11001100 00110011 

: 2584 1 : 11110000 00001111 

: 2585 1 : marching 1's, propagating 1's through the RAM 

; coat : : marching O's, propagating 0's through the RAM 

8 H 

3 2588 1 : Hardware tested: Station Address RAM 

3 2589 1 $ Q-Bus to QTOC interface 

s 2590 1 : CSR register - Receiver Enable (bit 0) 
3 2591 1 H Portion of Receive and Transmit FIFO 

8 2592 1 H Processing: 

3 2593 1 H 

>; 2594 1 H BEGIN 

3 2595 1 g reset device 

3 2596 1 $ select Setup mode 

3 2597 1 H REPEAT for each pattern 

3 2598 1 $ load transmit packet with data pattern 

$ 2599 1 : transmit loopback packet (fill all of the RAM) 

8 2600 1 $ receive packet 

8 2601 1 $ check for expected loopback status 

Hy 2602 1 $ IF error 

F 2603 1 H THEN 

F 2604 1 $ print error message if not inhibited 

3 2605 1 H ENDIF 

3 2606 1 g cell compare_packets 

s 2607 1 $ ENDREPEAT 

; 2608 : H NOD 

H g 


05:07 VAX-11 Bliss-16 V4.0-579 


SEQ 0135 
P OS 


(20) 


G11 


SEQ 0136 

ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Nee 55 
v01.0 TEST 8 - STATION ADDRESS RAM TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)ZQN43.8LI;2 (21) 
3 2610 3 BGNTST; 
3 2611 3 
3 2ei2 : RESET_DEQNA ( ); 
3 261 
: 2614 3 DECR INDEX1 FRUM 7 TO 0 DO 
: 2615 4 BEGIN 
8 2616 4 INCR INDEX2 FROM O TO 127 DO 
: 2617 4 XMIT_BUFFER [ .INDEX2 ] = .PTRN_TABLE [ .INDEX1 J; 
: 2618 4 
3 2619 6 BGNSUB ; 
3 2620 6 XMIT_SETUP_PACKET ( N_MODE ); 
3 2621 4 ENDSUB; 
3 2622 3 END; 
3 2623 3 
3 2624 3 : TEMPS = ( N_MODE « 8 ) - 1; 
3 2625 3 : INCR INDEX1 FROM O TO TEMP 00 
3 2626 3 H BEGIN 
3 2627 3 : Pi = ZERO; 
3 2628 3 : P2 = .INDEX1 
8 2629 3 : WALKING. BIT 1 ); 
: 2630 3 : Pl = N_MODE; 
3 2631 3 : XMIT_SETUP_PACKET ( ds; 
3 2632 3 : 
F 2633 3 : INCR INDEX FROM O TO .P3 DO 
8 2634 3 8 XMIT_BUFFER [ . INDEX ] = ( - .XMIT_BUFFER [ .INDEX ] ) - 1; 
: 2635 3 i Pl = N_MODE; 
3 2636 3 : XMIT_SETUP_PACKET ( ); 
3 2637 3 : END; 
8 2638 3 
5 2639 3 INCR INDEX1 FROM O TO N_MODE - 1 DO 
3 2640 4 BEGIN 
8 2641 4 INCR INDEX FROM O TO N_MODE - 1 DO 
8 2642 4 XMIT_BUFFER [ .INDEX ] = ZERO; 
s 2643 4 XMIT_BUFFER [ .INDEX1 ) = Sx'FF’; 
$ 2644 4 
3 2645 6 BGNSUB ; 
$ 2646 6 XMIT_SETUP_PACKET ( N_MODE ); 
3 2647 4 ENDSUB; 
8 2648 4 
$ 2649 4 INCR INDEX FROM O TO .P3 DO 
s oeee ; XMIT_BUFFER [{ .INDEX ]) = ( - .XMIT_BUFFER [ .INDEX ] ) - 1; 
8 
Fy 2652 6 BGNSUB ; 
3 2653 6 XMIT_SETUP_PACKET ( N_MODE ); 
8 2654 4 ENDSUB; 
s 2655 4 
8 2656 3 END 
s 2657 1 ENDTST; 

-SBTTL $T8 TEST 8 - STATION ADDRESS RAM TEST 
000000 004137 000000G $78: JSR R1, $SAVE3 ; 2561 
000004 004737 000000G JSR PC,RESET.DEQNA ; 2612 


| I A A a IRI i a a I 


Hii 





SEQ 0137 
ZQNA3 CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 56 
v01.0 TEST 8 - STATION ADDRESS RAM TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA )ZQNA3.BLI;2 (21) 
000010 012701 000007 MOV 67,R1 3s *, INDEX1 2614 
000614 005000 1$: CLR ao s INDEX2 2616 
000016 116160 000000G 000000G 2s: rove PTRN. TABLECR1),XMIT.BUFFERCRO) ; #€ INDEX1),«( INDEX2) 2617 
000024 005200 INC RO s INDEX2 2616 
000026 920027 000177 CMP RO, 0177 3 INDEX2,¢ 
000032 003771 BLE 2s 
000034 104402 3$: TRAP 2 : 2617 
600036 012746 000200 MOV €200,-(SP) ; 2620 
000042 004737 000000G JSR PC,XMIT.SETUP .PACKET 
000046 005726 TST (SP )-« : 2617 
000050 104467 TRAP 6 3 
000052 006000 ROR RO 
000054 103767 BLO 3$ 
000056 005 DEC R1 3: INDEX1 2614 
000060 002355 is 
000062 005001 CLR R1 s INDEX1 2639 
000064 005000 4$: CLR RO 3s INDEX 2641 
000066 105060 000000G 5$: CLRB XMIT.BUFFERCRO) 3 *C INDEX) 2642 
000072 005200 INC RO 3 INDEX 2641 
000074 020027 000177 CMP RO, 0177 3; INDEX,« 
000100 003772 BLE S$ 
000102 112761 000377 000000G MOVB 0377, XMIT.BUFFERCR1) 3 *,*C INDEX1) 2643 
000110 104402 6$: TRAP 2 
000112 012746 000200 MOV $200, -( SP) Fy 2646 
000116 004737 000000G JSR PC,XMIT.SETUP .PACKET 
000122 005726 TST (SP )-« 3 2643 
000124 104467 TRAP 67 : 2646 
000126 ROR RO 
000130 103767 BLO 6$ 
000132 005000 CLR RO 3: INDEX 2649 
000134 000411 BR 8$ 
000136 012702 177777 7$;: MOV @-1,R2 Fy 2650 
000142 005003 CLR R3 
000144 156003 000000G B1SB XMIT .BUFFERCRO),R3 s *C INDEX),« 
000150 160302 SUB R3,R2 
000152 110260 000000G MOVB R2,XMIT.BUFFERCRO) 3 *,*C INDEX) 
000156 005200 INC RO 3 INDEX 2649 
000160 020037 000000G 8$: CMP RO,P3 3; INDEX,+« 
000164 003764 BLE 7$ 
000166 104402 9$: TRAP rs : 2650 
000170 012746 000200 MOV 9200, -( SP) 3 2653 
000174 004737 000000G JSR PC, XMIT.SETUP.PACKET 
000200 005726 TST (SP )-+ 3 2650 
000202 104467 TRAP 67 ; 2653 
000204 ROR RO 
000206 103767 BLO 9$ 
000210 005201 INC R1 3: INDEX1 2639 
000212 020127 000177 CMP R1,0177 ; INDEX1,+« 
000216 003722 BLE 4$ 
000220 000207 RTS PC : 2561 
3s Routine Size: 73 words, Routine Base: ABSCODES + 7070 


3 Maximum stack depth per invocation: 6 words 


T1414 


C900004 
000006 
000010 
000012 


3; Routine Size: 


004737 


104466 
006000 


103773 
000207 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 8 - STATION ADDRESS RAM TEST 


007070' 


6 words, 


Iii 


S-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


vfx-11 Bliss-16 V4.0-579 


(MAZURCZYK .DEQNA)ZQNA3.BLI;2 


-SBTTL T8 TEST 8 - STATION ADDRESS RAM TEST 


T8:: 

1$: JSR PC,$T8 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


Routine Base: ABSCODES + 7312 


; Maximum stack depth per invocation: 2 words 


3 2658 1 





2656 


Jil 
SEQ 0139 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 58 
TEST 9 - PROMISCUOUS STATION ADDRESS TEST S-Jul-1984 14:02:06 [MAZURCZYK .DEQNA)ZQNA3.BLI;2 (22) 


SSBTTL ‘TEST 9 - PROMISCUOUS STATION ADDRESS TEST’ 


fee 


TEST 9: PROMISCUOUS STATION ADDRESS TEST 
DESCRIPTION: 


This test verifies that DEQNA promiscuous addressing mode functions 
as specified. Bit patterns and addresses in and out of the range of 
setup addresses are used to assure that there is true promiscuity. 
If the operator specifies loop on error, the program re-e-ecites the 
code that detected the error until tC is entered 


Herdware tested: Promiscuous addressing mode logic 
Set of Target Addresses in HEXADECIMAL: 


00-00-00-00-00-00 
AA-AA-AA-AA-AA-AA 
55-55-55-55-55-55 
FF -FF -FF -FF -FF-FF 
Walking 1, shifting 1 across the Target Station Address 
Walking 0, shifting 0 across the Target Station Address 


Processing: 


BEGIN 
reset device 
select internal loopback mode 
set mode to Setup 
set ‘promiscuous’ addressing mode bit 
REPEAT for each Target Address 
load Target Address of the packet 
disable receiver 
transmit loopback packet 
enable receiver 
check for expected loopback status 
IF error 
THEN 
print error message if not inhibited 
ENDIF 
call compare_packets 
ENDREPEAT 
END 


3 
3 
° 
é 
3 
’ 
a 
2 
é 
‘ 
3 
° 
é 
é 
é 
6 
a 
° 
* 
é 
3 
é 
5 
3 
é 
a 
3 
a 
é 
é 
° 
é 
é 
° 
é 
° 
é 
’ 
é 
é 
é 
° 
o 
; 
é 


ed 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 9 - PROMISCUOUS STATION ADDRESS TEST 5-Jul-1984 14:02:06 [MAZURCZYK .DEQNA)ZQNA3.BLI;2 


BGNTST; 


See 


! RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
! TESTS IN EXTERNAL LOOPBACK MODE. 


RESET_DEQNA ( ); 

PREP_FOR_SETUP ( ); 

INCR INDEX1 FROM 1 TO 14 DO 
WRT_STATION_ADR (€ .INDEX1, PHA_INDEX ); 


BGNSUB ; 
XMIT_SETUP_PACKET ( P_MODE ); 
ENDSUB ; 


fee 
* NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 


RBUF LENGTH = 6; 
XBUF_LLENGTH = - ( .RBUF_LENGTH ft -1 ); 


INCR INDEX1 FROM O TO 99 DO 
BEGIN 
—_—e - INDEX1 OF 


SE 
{ 0103 ]}: 

WRT_STATION_ADR ( ZERO, .INDEX1 ); 
{ 417051]: 

WALKING_BIT ( ZERO, .INDEX1 - 4, 5 ); 
{ 52 TO 99 }: 
. WALKING_BIT ( ONE, .INDEX1 - S52, 5 ); 
ES; 


WRT_STATION_ADR ( ZERO, ZERO ); 


BGNSUB ; 
XMIT_ILOOP_PACKET ( ZERO ); 
ENDS 


END; 


INCR INDEX FROM O TO 5 DO 
TARGET_ADR [ .INDEX ] = ZERO; 
ENOTST; 
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-SBTTL $T9 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 

60146 : MOV R1,-(SP) : 
004737 JSR PC,RESET.DEQNA ; 
004737 JSR PC,PREP.FOR.SETUP ; 
‘ 


000012 012701 MOV #1,R1 *, INDEX1 





Lil 


SEQ 0141 
CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 60 
TEST 9 - PROMISCUOUS STATION ADDRESS TEST 5-Jul-1984 14:02:06 ([MAZURCZYK . DEQNA]ZQNA3.BLI;2 (23) 


010146 1$: R1,-(SP) ; INDEA1,¢ 2714 
012746 000023 023, -(SP) 
004737 0000006 PC,WRT. STATION. ADR 
022626 CSP)», (SP)+ 
005201 INDEX1 2713 
020127 000016 Ri, 016 INDEX1,¢ 
003766 1$ 
104402 2 2714 
012746 000202 9202, -(SP) 2717 
0000006 PC ,XMIT. SETUP. PACKET 
(SP) 2714 
67 2717 
RC 
23 
06 ,RBUF .LENGTH 2724 
+ ag 2725 


RO 

RO, XBUF .LENGTH 
R1 INDEX1 2727 
INDEX1 2731 


INDEX1,+* 
; 2732 
) INDEX1,« 
PC, "WRT. STATION.ADR 
(SP)+, (SP )+ 
7$ 2729 
INDEX1,+* 2733 
INDEX1,+# 


2734 
INDEX1,+# 
INDEX1,* 2735 
INDEX1,+# 

2736 
INDEX1,* 


PC, "WALKING. BIT 
#6,SP 
-(SP) 


-(SP) 
alter amiaae 


(SP) 
PC,XMIT.ILOOP.PACKET 





—_ee—a—ovoooe 





Mil 


SEQ 0142 


ZQNA3 CZQNACO DEGQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 61 

v01.0 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA]ZQNA3.BLI;2 (23) 
46 104467 TRAP 67 

900250 006000 ROR RO 

000252 103771 BLO 8$ 

000254 022626 CMP (SP)+,CSP)+ 5 2728 

000256 005201 INC R1 ; INDEX1 2727 

000260 020127 000143 CMP R1,0143 ; INDEX1,¢ 

000264 003711 BLE 3$ 

000266 005000 CLR RO s INDEX 2747 

000270 105060 000000G 9$: CLRB TARGET .ADRCRO) 3; *#C( INDEX) 2748 

000274 005200 INC RO ; INDEX 2747 

000276 020027 000005 CMP RO, #5 : INDEX,+¢ 

000302 0037°2 BLE 9s 

000304 012f.01 MOV CSP)+,R1 : 2657 

000306 006207 RTS PC 

; Routine Size: 100 words, Routine Base: ABSCODE$ + 7326 


; Maximum stack depth per invocation: 5 words 


-SBTTL T9 TEST 9 - PROMISCUOUS STATION ADDRESS TEST 


000000 004737 007326' T9:: 
000000 1$: JSR PC,$T9 : 2:28 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
Routine Size: 6 words, Routine Base: ABSCODE$ + 7636 


; Maximum stack depth per invocation: 2 words 


s 2750 1 


Nii 
SEQ 0143 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 age 62 
TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 5S-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA]ZQNA3.BLI;2 (24) 


*SBTTL ‘TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST’ 
See 
tt 


TEST 10: TRANSMIT AND RECEIVE FIFO MEMORY TEST 
DESCRIPTION: 


This test verifies that link memory (receive FIFO and transmit 
buffer) has no static faults. The host writes and then reads 

a@ sequence of data patterns to the link memory. The data is then 
checked to see that the data pattern received is the same as the 
date pattern transmitted. This test continues until all the data 
patterns are exhausted. If the operator specifies loop on error, the 
program re-executes the code that detected the error until tC is 
entered. 


Hardware tested: Transmit buffer address logic 
Transmit buffer memory ( first 1512 bytes ) 
Receive FIFO address ogic 
Receive FIFO memory ( first 1512 bytes ) 


The following BINARY patterns are used: 


11111111 00000000 
10101010 01010101 
11001100 00110011 
11110000 00001111 


Processing: 


BEGIN 
reset device 
select internal/extended loopback mode 
REPEAT for each pattern 
write link memory with pattern - transmit loopback packet 
read link memory with pattern - receive loopback packet 
check for expected loopback status 
IF error 
THEN 
print error message if not inhibited 
ENDIF 
cell compare_packets 
ENDREPEAT 
END 
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TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 5S-Jul-1984 14:02:06 


Ble 


BGNTST; 


s@ecerte 
' * 


RBUF LENGTH = LONGEST PACKET; 


XBUF LENGTH = - ( 


.RBUF _ LENGTH * -1 Ds 


INCR INDEX FROM 0 TO 7 DO 


BEGIN 


RESET_DEQNA ( ); 

TEMP1 = O; 

INCR INDEX1 FROM 0 TO 189 DO 
INCR — FROM 0 TO 7 DO 


GIN 

XMIT_BUFFER ({ .TEMP1 ) = 

TEMP1 = .TEMP1 «+ 1; 
END; 


-PTRN_TABLE [ .INDEX2 }; 


ROTATE PATTERN TABLE 


TEMP2 = .PTRN_TABLE [ O ]; 
INCR INDEX3 FROM O TO 6 DO 


PTRN_TABLE [{ .INDEX3 ] = .PTRN_TABLE [{ .INDEX3 + 1 ]; 
PTRN_TABLE [ 7 } = .TEMP2; 
BGNSUB 


3 
SET_ROESCR_LIST ( .XBUF_LENGTH, VE ); 
SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
SEND_ELOOP_PACKET ( ZERO ); 

COMPARE PACKETS ( ) 

ENDSUB; 


END; 


~~ FROM O TO LONGEST_PACKET - 1 DO 


IN 

INCR INDEX FROM O TO LONGEST_PACKET - 1 DO 
XMIT_BUFFER [ . INDEX } = ZERO; 

XMIT_BUFFER [ JINDEXi 1 = sx’ FF’; 


UB ; 
SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
SEND_ELOOP_PACKET ( ZERO ); 
COMPARE PACKETS ( ); 
ENDSUB; 


INCR INDEX FROM 0 TO .P3 DO 


XMIT_BUFFER [ . INDEX }) = ( - .XMIT_BUFFER [ 


ok 


Jul-1984 14:05:07 


INDEX ] ) - 
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"LOOPBACK 1514 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 
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; 2849 3 : 
s e850 3 : 
s; 2851 3 : SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
s 2es2 35 : SET _XDESCR_LIST ( .XBUF_LENGTH, VE ); 
s #233 5&5 : _ELOOP _PACKET ( ZERO ); 
s 2854 3 : COMPARE. PACKETS ( ); 
s 2855 3 : ENDSUB; 
: 2856 3 : 
; 2857 3 : END; 
s; 2858 3 
; 2859 1 ENDTST; 

. SBTTL abe TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 
000000 004137 0000006 $T10: JSR R1, $SAVES : 2749 
000004 012737 002752 000000G MOV 02752, RBUF LENGTH ; 2802 
000012 012700 002752 MOV 02752,RO ; 2803 
00001€ 006200 ASR RO 
000020 005400 NEG RO 
000022 010037 000000G MOV RO, XBUF .LENGTH 
000026 012703 000010 MOV #10,R3 s *, INDEX 2805 
000032 004737 000000G 1s: JSR aE RESET. DEQNA $ 2807 
000036 005037 000000G CLR MP1 3 2808 
000042 012702 000276 MOV 2B 76. R2 3 *#,INDEX1 2809 
000046 005000 2s: CLR RO s INDEX2 2810 
000050 013701 000000G 3$: MOV TEMP1,R1 8 2812 
000054 116061 000000G 000000G MOVB PTRN, TABLE(RO),XMIT. BUFFER(R1) ; *CINDEX2),¢ 
000062 005237 000000G INC TEMP 1 8 2e13 
000066 005200 INC RO 3; INDEX2 2310 
000070 020027 000007 CMP RO,07 3; INDEX2,¢ 
000074 003765 BLE 3$ 
000076 077215 s$oB R2,2$ ; INDEX1,« 2809 
600100 005037 000000G CLR TEMP2 PF 2820 
000104 113737 000000G 000000G MOVB PTRN. TABLE, TEMP2 
000112 005000 CLR RO 3; INDEX3 2821 
000114 116060 000001G 000000G 4$: MOVB PTRN, TABLE+1(RO),PTRN.TABLE(RO) ; #( INDEX3),¢( INDEX3) 2822 
000122 005200 INC RO 3; INDEX3 2821 
000124 020027 000006 CMP RO, 06 3; INDEX3,¢ 
000130 003771 BLE as 
000132 113737 000000G 000007G MOVB TEMP2 ,PTRN, TABLE+7 
000140 104402 S$: TRAP 2 
000142 013746 000000G MOV XBUF .LENGTH, -( SP) 
000146 012746 120000 MOV @-60600, -( SP) 
000152 004737 000000G JSR PC,SET.RDESCR.LIST 
000156 013716 000000G MOV XBUF .LENGTH, (SP) 
000162 012746 120000 MOV ©-60000, -( P) 
000166 004737 000000G JSR PC,SET. XDESCR.LIST 
000172 005016 CLR (SP) 
000174 004737 000000G JSR PC,SEND.ELOOP .PACKET 
000200 004737 000000G JSR PC, COMPARE .PACKETS 
000204 062706 000906 ADD 06,SP 
000210 104467 TRAP 67 
000212 006000 ROR RO 








| At SY 





Die 
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v01.0 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 5S-Jul-1984 14:02:06 
14 103751 BLO S$ 

o00ci6 077373 S08 R3,1$8 

000220 000207 RTS PC 

: Routine Size: 73 words, Routine Base: ABSCODES + 7652 


; Maximum stack depth per invocation: 6&8 words 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA)ZQNA3.BLI;2 


3 INDEX,« 
. 


-SBTTL 110 TEST 10 - TRANSMIT AND RECEIVE FIFO MEMORY TEST 


000000 004737 007652’ T10:: 

000000 1$: JSR PC,$T10 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO i$ 
000012 000207 RTS PC 

3; Routine Size: 6 words, Routine Base: ABSCODE$ + 10074 


; Maximum stack depth per invocation: 2 words 


2860 1 


2832 


Ele 


SEQ 0147 
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2861 SSBTTL ‘TEST 11 - PACKET LENGTH TEST’ 

2864 TEST 11: PACKET LENGTH TEST 

2865 

2866 DESCRIPTION: 


This test verifies that DEQNA can transmit and receive variable 
length packets ( equal to or greater than 60 bytes snd equal to or 
less than 1514 a without the CRC ) without losing any data 
in the process. This test also verifies that the 9th bit of the 
FIFO — is not static (stuck at i/stuck eat 0). If the onerator 


ee oe Ge Ge GF Ge Ge Ge Ge Ge Ge Gs Ge GH Ge Ge Ge Ge 
ft 
@ 
~~ 
oO 


call compare_packets 
decrement down_count by 2 
increment up_count by 2 
ENDREPEAT 
END 


tw 
@ 
o 
is 
ON eee et 


: 
: 
: 
$ 
: 
$ 
$ 
$ 
H 
$ 
2873 g specifies loop on error, the program re-executes the code that 
2874 : detected the error until tC is entered. 
2875 H 
de $ Hardware tested: Transmit and Receive RAH 
28 H 
2878 H Processing: 
; 2879 : 
; 2880 : BEGIN 
; 2881 g reset device 
; 2882 H select internal/extended loopback mode 
3 g set down_count to max. packet length 
; 2884 1 set up_count to min. packet length 
8 2685 : REPEAT until down_count = min. packet length 
3 2886 H transmit loopback packet (packet length = down_count) 
3 2887 : check for expected loopback status and packet length 
8 2888 : ve tala 
; 2889 : 
8 2890 8 son error message if not inhibited 
8 2891 : 
3 2892 H call compare_packets 
3 2893 : transmit loopback packet (packet length += up_count) 
3 2894 : check for expected loopback status and pecket length 
Bb het 
H 1 
F 2897 H print error message if not inhibited 
; 2898 H ENDIF 
o 
; 
H : 
FH § 
3 $ 
3 : 


| fa ms ] 


Fie 


SEQ O 
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5 2905 3 BGNTST; 
: 2906 3 
; 2907 3 tee 
3 2908 3 * LOOPBACK PACKETS OF INCREASING AND DECREASING LENGTH THEN CHECK IF PROPERLY 
8 2909 3 ! RECEIVED 
3 2910 3 $-- 
3 2911 3 
8 2912 3 COUNTER = ZERO; 
: 2913 3 UP_COUNTER = SHORTEST_PACKET; 
: eels : DOWN_COUNTER = LONGEST _PACKET; 
: 291 
: zee : - — FROM SHORTEST_"ACKET TO MAX_LENGTH BY STEP1 DO 
; 291 
3 2918 4 Oe OeSET. DEQNA ( ); 
3 2919 4 y. ,COunTen EQLU ZERO 
: 2920 4 
3 2921 5 GCGIN 
3 2922 5 RBUF_LENGTH = .UP_COUNTER; 
3 2923 5 XBUF_LENGTH = - ( .RBUF_LENGTH f -1 ); 
: 2924 5 INCR INDEX FROM O TO .UP_COUNTER - 1 DO 
3 2925 5 XMIT_BUFFER [ _ INDEX ] = . INDEX; 
3 2926 5 INCR INDEX FROM .UP_COUNTER TO MAX _LENGTH - 1 DO 
: 2927 5 XMIT_BUFFER [ .INDEX ) = ZERO; 
3 2928 5 UP_COUNTER = .UP_COUNTER + STEPL:; 
8 2929 5 COUNTER = ONE; 
3 2930 5 E 
$ 2931 4 ELSE 
8 2932 5 BEGIN 
3 2933 5S RBUF_LENGTH = .DOWN_COUNTER; 
8 2934 5 XBUF_LENGTH = - ( .RBUF_LENGTH ft -1 ); 
$ 2935 5 INCR INDEX FROM O TO $e - 100 
3 2936 5 XMIT_BUFFER [ . INDEX . INDEX 
3 2937 5S INCR INDEX FROM .DOWN_ COUNTER TO MAX _LENGTH - 1 00 
Fy 2938 5 XMIT_BUFFER [ . INDEX ) = ZERO; 
3 2939 5 DOWN_COUNTER = DOWN COUNTER - STEP1; 
$ 2940 5 COUNTER = ZERO; 
; 2941 4 END; 
F 2942 4 
s 2943 6 BGNSUB; 
s 2944 6 SET "ROESCR_ LIST ( .XBUF_LENGTH, VE ); 
: 2945 6 SET_XDESCR_LIS. ( .XBUF_LENGTH, VE ); 
3 2946 §$ SEND_ELOOP_PACKET ( ZERO ); 
3 2947 6 COMPARE PACKETS ( ); 
s 2948 4 ENDSUB; 
F 2949 4 
$ 2950 3 END; 
: 2951 1 ENDTST; 

-SBTTL $T11 TEST 11 - PACKET LENGTH TEST 
000000 004137 000000G $T1ll: JSR R1,$SAVE2] : 2859 
000004 005037 000000G CLR COUNTER 3 2912 
000010 012737 000074 000000G MOV #74,UP.COUNTER : 2913 


| 4° 


012737 
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002752 0000006 
000074 


000000G 
000000G 
000000G 
000000G 


002775 


1$; 


2s: 
3$; 


4$: 
5$: 


11$: 


12$: 


G12 


5-Jul-1984 14:05:07 
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02752 ,DOWN. COUNTER 
074 ,R2 

PC ,RESET.DEQNA 
COUNTER 


6$ 
UP . COUNTER ,RO 


3$ 
gute 


R1,R0 
2s 
RO 


5$ 
XMIT .BUFFERCRO) 
RO 


RO,02775 


as 
02,UP.COUNTER 


#1,C 
4 


OUNTER 


11 
DOWN. COUNTER ,RO 
—_— LENGTH 


8$ 
te tinea iene, 


R1,R0 
7$ 


RO 


10$ 
XMIT .BUFFERCRO) 


RO 
RO,02775 
9$ 


@2,D0WN. COUNTER 
COUNTER 
ae Ae 


RO 
Soe Aen 
XBUF .LENGTH, -( SP) 


@-60000 
PC,SET.R 


-(SP) 
DESCR.LIST 


XBUF .LENGTH, (SP) 
#-60000, -( SP) 
PC,SET.XDESCR.LIST 
(SP) 


PC,SEND.ELOOP.PACKET 
PC, COMPARE .PACKETS 


06, SP 
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*, INDEX1 


INDEX 
INDEX, #(€ INDEX) 
INDEX 

INDEX, « 


*#( INDEX) 
INDEX 
INDEX, @ 


INDEX 
INDEX, ¢C INCEX) 
INDEX 

INDEX, ¢ 


*C INDEX) 
INDEX 
INDEX, * 


SEQ 0149 
age 68 
(27) 


oye a 


Hie 


SE 
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000272 104467 TRAP 67 : 
000274 006000 ROR RO — 
000276 103751 BLO 12$ 
000300 0627 000002 ADD 2,R2 3; *, INDEX1 2916 
000304 020227 002776 CMP R2,02776 3 INDEX1,¢ 
000310 003647 BLE 1$ 
000312 000207 RTS PC : 2859 
: Routine Size: 102 words, Routine Base: ABSCODE$ + 10110 
; Maximum stack depth per invocation: 7 words 

-SBTTL Til TEST 11 - PACKET LENGTH TEST 
000000 004737 010110’ Tll:: 
000000 1$: JSR PC,$T1l 3 2950 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO i$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ABSCODE$ + 10424 


3 Maximum stack depth per invocation: 2 words 


s O02 i 


T4“ 


Ce dd 


Iie 
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S-Jul-1984 14:02:06 ([MAZURCZYK . DEQNA )ZQNA3.BLI;2 


TEST 12 - NXM INTERRUPT TEST 
SSBTTL ‘TEST 12 - NXM INTERRUPT TEST’ 


See 
TEST 12: NXM INTERRUPT TEST 
DESCRIPTION: 


This test verifies that Transmit and Receive List Invalid bits 

(CSR bits 4 and 5) can be set and reset as specified and that both, 
Transmit and Receive Descriptor List addresses in the I/0 page have 
to be valid to succesfully loopback a packet. 


After a software reset Transmit and Receive List Invalid bits are 
checked for their initial condition state (both set). Then these bits 
ere cleared by writing Transmit and Receive Descriptor List addresses 
into Transmit and Receive Buffer Descriptor Registers. 


First, valid loopback packet is sent to verify that UUT properly 
transmits and receives loopback packets. Then, a Non-Existant 
Memory Access ( NI ) bit is forced to " 1 ” each time an invalid 
loopback packet is sent. 


If the operator specifies loop on error, the program re-executes the 
code that detected the error until tC is entered. 


Hardware tested: Q-Bus to QTOC interface 
- Valid and invalid host memory 
address processing 
CSR register - NXM access (bit 2) 
- Interrupt Enable (bit 6) 
- XMIT List Invalid (bt 4) 
- RCV List Invalid (bit 5) 


Use following Descriptor List and buffer addresses: 


TRANSMIT RECEIVE 
seeeeees aeeenee 
DESCR LIST ADR BUFFER ADR DESCR LIST ADR BUFFER ADR 

VALIO VALID VALIO VALIO 
INVALID DON'T CARE DON'T CARE DON'T CARE 
VALID INVALID DON’T CARE DON'T CARE 
VALID VALID INVALID DON'T CARE 
VALID VALID VALID INVALID 


OS OS OS OS OS OS OS OS OS OS OS OS OS OS 8S OS OS OS OS OS OS OS OS OS OS OS 8S OS OS OS OS OS 1S 8S 1S 1S 8S 1S IS tS te te tS tS terete 


SEQ 
P 


015 
age 


1 
7 
(28 


eo} 
) 


Jle2 
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Processing: 


BEGIN 
reset device ( disables device interrupt ) 
select internal loopback mode 


read CSR 
— and RCV List Invalid bits not = 1 
N 
print error message if not inhibited 
ENDIF 
enable Jjevice interrupt (set CSR bit 6) 
transmit valid loopback packet 
check for expected locpback status 
IF error 
THEN 
print error message if not inhibited 
ENDIF 
call compere_packets 
REPEAT for each set of addresses in the set 
transmit invaiid loopback packet 
IF NXM interrupt didn't occured 
THEN 
print error message if not inhibited 
ENDIF 
check for expected loopback status 
IF error 
THEN 
oo error message if not inhibited 


ENDREPEAT 
END 


ed el ed od ed ed de ed ee eee tt 





iva“ } 


es Ge Gs Ge Ge @s Ge Gs Ge Gt Ge Ge Gs Ge Gs Gs Ge Ge Gt Ge Ge Gt GH Gs Gs GF Ge Gs Ge GF Gs Ge GF GH Ge GH Ge GH GH Gs Gs Ge Gt Ge Ge Ge Ge Ge GF Gs GF GF oF 
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TEST 12 - NXM INTERRUPT TEST 
BGNTST; 


cmcscace 
> 


"RESET DEQNA AND SELECT LOO°BACK MODE 


RESET_DEQNA ( ); 


PREP_FOR_SETUP ( ); 
INCR INDEX FROM 1 TO 14 DO 
WRT_STATION_ADR (€ . INDEX, PHA_INDEX ); 


BGNSUB; 
XMIT_SETUP_PACKET ( N_MODE ); 
ENDSUB; 


RBUF _LENGTH = 6; 
XBUF_LENGTH = - ( .RBUF_LENGTH f -1 ); 


CLR_BUFFERS ( B_SIZE ); 
ERR_NUMBER = ZERO; 


se teresa 
' * 


LOOPBACK PACKET WAS PROPERLY RECEIVED AND NI BIT IN CSR = 0 


RESET_DEQNA ( ); 
WRT_STATION_ADR ( ZERO, PHA_INDEX ); 


SUB 
XMIT ILOOP_PACKET ( ZERO ); 
IF GET_BIT ( CSR, NI ) 


THEN 

BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSG59 ); 
PRINTB (€ MSG29 ¥ 
PRINTB (€ MSG28 
ERROF ( 1201, MSG00, ERRORSREPORT ); 

END; 

ENDSUB; 


See 

! TRY TO LOOPBACK A PACKET WITH INVALID TRANSMIT DESCRIPTOR ADDRESS, 
a) 

] 


BGNSUB ; 
RESET_DEQNA ( ); 
.IOP_TABLE [ XLO_ADR ] = NXM_LO_ADR; 
.ICP_TABLE { XHI_ADR } = NXM_HI_AOR; 
IF NOT GET_BIT ( CSR, NI ) 


THEN CHECK FOR NON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET TO 1 


VAX-11 Bliss-16 V4.0-579 
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" LOOPBACK A PACKET, VALID DESCRIPTORS AND BUFFER ADDRESSES, THEN CHECK IF 


SEQ 015 
Page 


3 
(30) 


ee +s G8 Ge Ge Ge Ge Gt © Gt GF @: Ge Ge Ge Gt GH Ge Ge Ge Gh GF Ge Ge Ge GH Ge Ge GH GH Ge Ge Ge Gs Ge Ge Ge GH Ge Ge Ge Ge Ge Ge Ge Gs GF Ge Ge Ge oe oe 


EEN UT UT ON OO C8 DD OD UT UT UT 0 0 0 0 0 0 0 09 0 0 0 0 0 0 0 0 UT 0 AUTO DODO OUUIUI 
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THEN 
If ( .XMIT_D_LIST [ FLGWD ] AND XFLG_MASK ) NEQU XFLG_MASK 
THEN 


BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSGS9 ); 
PRINTB ( MSG29 d; 
PRINTB ( MSG27 ); 
ERROF ( 1202, MSG00, ERRORSREPORT ); 
ND; 


: 
: 


+ 


"TRY TO LOOPBACK A PACKET WITH INVALID RECEIVE DESCRIPTOR ADDRESS, 
THEN CHECK IF NON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET TO 1 


GNSUB ; 
RESET_ DEQNA ( ); 
WRT_STATION_ADR ( ZERO, PHA_INDEX ); 


.-IOP_TABLE { RLO_ADR ] = NXM_LO_ADR; 
-IOP_TABLE [ RHI_ADR ] = NXM_HI_ADR; 


SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
-IOP_TABLE [ XLO_ADR ] = XMIT_D_LIST; 
-IOP_TABLE [ XHI_ADR ] = ZERO; 

CHK _RIXI_STATUS ( ONE ); 


CHK_CSR_STATUS ( #0'000220', #0'000220' ); 


CHK_XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); ! 0'140000', 0'000400' 
-IOP_TABLE [ CSR ] = EENABLE; 
DELAY ( 20 ); 


ra GET Bit ( CSR, NI ) 
IF ¢ MeN DALES! { FLGWO ) AND RFLG_MASK ) NEQU RFLG_MASK 
THE 
EGIN 
. IOP _ TABLE i. at J = DISABLE; 
CSR_ WOR T ( CSR_ALL ); 
ness" - 
MSG29 ); 
MSG27 ); 
1203, SG00, ERRORSREPORT ); 


= DISABLE; 


v 

» 

— 

z 

“4 

@o 
—— AAMAS O 


END; 
.I10P_TABLE [ CSR 
ENDSUB; 


Ses 


* TRY TO LOOPBACK A PACKET WITH INVALID TRANSMIT BUFFER ADDRESS, 





; 
: 
° 
3 
é 
° 
3 
; 
3 
‘ 
; 
° 
G 
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6 
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: 
3 
é 
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3 
é 
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‘ 
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* THEN CHECK IF NON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET TO 1 
] 


BGNSUB ; 
RESET .DEQNA ( ); 
SET_XDESCR_LIST ( .XBUF_LENGTH, VENXM ); 
XMIT_D_LIST [ LOADR ] = NXM_LO_ADR; 
.IOP_TABLE { XLO_ADR } = XMIT_O "LIST; 
° { XHI_ADR } = ZERO; 


( 20 ); 
ah 4 GET BIT ( CSR, NI ) 
of 2 a -D_LIST [ FLGWD ] AND XFLG_MASK ) NEQU XFLG_MASK 


SCGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSG59 ); 
PRINTB ( MSG29 d; 
PRINTB ( MSG27 ); 
ERRDF ( 1204, MSGOO, ERRORSREPORT ); 
END; 
ENDSUB; 


*¢ 


TRY TO LOOPBACK A PACKET WITH INVALID RECEIVE BUFFER ADDRESS, 
THEN CHECK IF NON-EXISTANT MEMORY INTERRUPT ( NI ) BIT IS SET TO 1 


BGNSUB ; 
RESET_DEQNA ( ); 
SET_RDESCR_LIST ( .XBUF_L “wy VENXM ); 
RCV_O_LIST [ LOADR } = LO_ADR; 
-IOP_TABLE [ RLO_ADR } = ‘a. 0 “LIST; 
.IOP_TABLE [ RHI_ADR } = ZERO; 
SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
-IOP_TABLE [{ XLO_ADR ) = XMIT_O_LIST; 
.IOP_TABLE [{ XHI_ADR ] = ZERO; 
CHK _RIXI_STATUS ( ONE ); 


CHK_CSR_STATUS (¢ #0'000220', #0'000220' ); 
CHK _XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); ! 0'140000',, 0'000400' 


-IOP_TABLE [ CSR ] = EENABLE; 


DELAY ( 20 ); 
IF NOT GET BIT ( CSR, NI ) 


THEN 
FX LESS { FLGWD ] AND RFLG_MASK ) NEQU RFLG_MASK 
N 
BEGIN 


SEQ 0155 





w 
3 
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010146 


016666 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


Nie 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


CSR_WORD = GET_BIT ( CSR_ALL ); 
.IOP_TABLE [ CSR } = DISABLE; 


PRINTB ( MSG27 ); 


ERRDF ( 1205, MSGOO, ERRORSREPORT ); 


END; 
.IOP_TABLE { CSR } = DISABLE; 


ENDSUB; 
ENDTST; 


$Tle: 


1$: 


2s: 


3$: 
000000G 
000000G 
000016 0©090004 
000004 


000004 000006 


#26,SP 
PC,RESET.DEQNA 
PC,PREP.FOR.SETUP 


-(SP) 
PC, WRT. STATION. ADR 
(SP)+, (SP )« 


1 
R1,016 
1$ 
2 
#200, -( SP) 
oss AIT. . SETUP .PACKET 


67 
RO 


2$ 
#6 ,RBUF .LENGTH 
#6,RO 


RO 

RO, XBUF .LENGTH 
#4000, -(SP) 
oa CLR.BUFFERS 
ERR .NUMBER 


at RESET. . DEQNA 
#23, -(SP) 
PC.URT. STATION. ADR 


(SP) 

PC, XMIT.ILOOP.PACKET 
REG.ADR,RO 
16(RO),4(SP) 

(PC), 4¢SP) 


4$ 
4(SP),6(SP) 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA JZQNA3.BLI;2 


-SBTTL $T1i2 TEST 12 - NXM INTERRUPT TEST 
MO R P) 3 


*#, INDEX 
INDEX, * 


; INDEX 
: INDEX,« 


3; *,TMP.LOCAT ON 
; *,TMP.LOCATION 


; *,TMP.LOCATION 


SEQ 0156 
Page 


75 
(30) 


SEQ 0157 
ZGNA3S CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 ~ 
v0i.0 TEST 12 - NXM INTERRUPT TEST S-Jul-1964 14:02:06 [MAZUPCZYK .DEQNA)ZQNA3.BLI;2 
016637 000006 000000G MOV 6(SP),CSR.WORD s TMP .LOCATION,« 
000210 012716 000000G MOV OMSGS9, (SP) $ 
000214 012746 000001 MOV 01,-(SP) 
000220 010600 MOV SP,RO s SP,e 
000222 104414 TRAP 14 
000224 012716 000000G MOV oMSG29, (SP) : 
000230 012746 000001 MOV @1,-(SP) 
000234 010600 MOV SP,RO s SP,« 
000236 104414 TRAP 14 
012716 0000006 MOV OMSG28 ,( SP) F 
000244 012746 000001 MOV 1,-(SP) 
01 MOV SP, s SP,« 
000252 104414 TRAP 14 
000254 104455 TRAP 55 $ 
000256 002261 «WORD 2261 
000260 0000006 - WORD 
000262 000000G -WORD ERRORSREPORT 
000264 062706 000006 ADD 6, ’ 
000270 104467 4$: TRAP 67 : 
000272 006000 ROR RO 
000274 103723 BLO 3$ 
000276 104402 S$: TRAP 2 8 
000300 004737 000000G JSR PC RESET .DE j 
000304 012777 160000 ©00010G MOV @-20000,@I0P. TABLE +10 i 
000312 012777 000077 00012G MOV 077, @I10P. TABLE+12 H 
000320 013700 0000006 MOV REG. ADR ,RO : 
000324 016066 000016 000010 MOV 16(RO), 10(SP) : *,TMP.LOCATION 
000332 032766 000004 000010 BIT 04,10(SP) s *,TMP.LOCATION 
000340 001045 BNE 6% 
000342 013701 000000G MOV XMIT.O.LIST,R1 3 
000346 042701 037777 BIC 037777,R1 
000352 020127 140000 CMP R1,@-40000 
000356 001436 BEG 6$ 
000360 016666 000010 900012 MOV 10(SP),12(SP) s *,TMP.LOCATION 
000366 016637 000012 9000006 MOV 12(SP),CSR.WORD s TMP.LOCATION,« 
000374 012716 MOV OMSG59,( SP) 3 
000400 012746 000001 MOV 1,-(SP) 
000404 010600 MOV SP,RO : SP,« 
000406 104414 TRAP 14 
000410 012716 000000G MOV OMSG29, (SP) 3 
000414 012746 000001 MOV 01,-(SP) 
000420 01 MOV SP,RO ; SP,« 
000422 104414 TRAP 14 
000424 012716 000000G MOV @MSG27, (SP) ; 
000430 012746 000001 MOV 01,-(SP) 
000434 01 MOV ’ s SP,« 
000436 104414 TRAP 14 
000440 104455 TRAP 55 H 
000442 002262 -WORD 2262 
000444 -WORD M™SGOO 
000446 -WORD ERRORSREPORT 
000450 062706 000006 ADD »SP 3 
000454 104467 63: TRAP 67 ; 





Cis 








CZQNACO DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


7$: 


000040 9$: 
10%: 
11$: 


C13 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


Beg 
: 
Z 


LORS 


«-(SP) 
WRT. STATION. ADR 
20000, @IOP. TABLE +4 
7,@10P. TABLE +6 
-LENGTH, (SP) 

7 -(SP) 


XDESCR.LIST 
OxMIT. 0. LIST, @IOP. TABLE +10 
SIP. TABLE +12 

#1,(SP) 

PC. CHK .RIXI.STATUS 
0220,(SP) 

(SP), -CSP) 
PC,CHK.CSR. STATUS 
@-40000, (SP) 
0400, -(SP) 

PC ,.CHK .XMIT.STATUS 
@1,@I0P. TABLE +16 
024,R1 

11% 

LSOLY,RO 

10$ 

40( SP) 

RO,9$ 

R1 

8$ 

REG.ADR,RO 
16(RO),24(SP) 
04,24(SP) 

l2$ 

RCV.O.LIST,R1 


037777,R1 
R1,-40000 


128 
IOP. TABLE +16 
24(SP),26( SP) 


ane 


14 

@MSG29, (SP) 
oi, (SP) 
SP RO 


14 
0MSG27,(SP) 
ol, -(SP) 

SP ,RO 


DiS 


VAX-11 Bliss-16 V4.0-579 
{MAZURCZYK .DEQNA)ZQNA3.8LI;2 


3 *,$$TMP2 
3 @,$$TMPl1 


3; $$TMP 
. $sTMPl,« 
3 $sTMP2 


3 *,TMP.LOCATION 
3 *,TMP.LOCA7ION 


«, TMP .LOCATION 
TMP .LOCATION, « 
SP,« 


SP, 


SP, 


3124 


3126 





001232 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 12 - NXM INTERRUPT TEST 


000000G 
000016 000022 
000004 000022 


000000G 
037777 
140000 


000022 000024 
000024 000000G 
000000G 


600001 


00Uv00G 
000001 


000000G 
000001 


12$: 


13%: 


14%: 


15%: 
16$: 
17%: 


D135 


5-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


14 
55 
2263 


MSGOO 
Se 


06, 

IOP. TABLE +16 
#10,SP 

67 

RO 

7$ 

2 

PC RESET .DEQNA 

XBUF .LENGTH, (SP) 

@-57701, -(SP) 
PC,SET.XDESCR.LIST 
@-20000, XMIT.D.LIST+4 
OxXMIT.D.LIST,@IOP, TABLE +10 
@I0P. TABLE +12 


REG.ADR,RO 
16(RO),22(SP) 
04,22(SP) 

18% 
XMIT.O.LIST,R1 
037777,R1 
R1,@-40000 


18$ 
22(SP),24( SP) 
24(SP),CSR.WORD 
@MSGS9, (SP) 
@1,-CSP) 

SP ,RO 


14 
#MSG29,(SP) 
#1, -(SP) 

SP ,RO 

4 


1 
@MSG27,(SP) 


00 
ERROR $REPORT 


VAX-11 Bliss-16 v4.0-579 
({MAZURCZYK .DEQNA]ZQNA3.BLI;2 


#,$$TMP2 
*,$$TMPl 


$$TMP 
$$TMPi,« 
$sTMP2 


¢, TMP LOCATION 
«, TMP. .LOCATION 


* J TMP .LOCATION 
TMP .LOCATION, 2 
SP, 


SP,* 


SP, 


SEQ 0159 
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(30) 


3134 


3151 


3153 


3156 
3157 


3158 


3159 


3160 
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SEQ 0160 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 79 
v01.0 TEST 12 - NXM INTERRUPT TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)JZQNA3.BLI;2 (30) 
001234 062706 000006 ADD 06,SP : 3155 
001240 005726 18%: TST (SP) ; 3137 
001242 104467 TRAP 67 ; 3161 
001244 006000 ROR RO 
001246 103662 BLO 13% 
001250 104402 19%: TRAP 2 ; 3162 
001252 004737 000000G JSR PC RESET ; 3170 
001256 013716 000000G MOV XBUF .LENGTH, (SP) : 2172 
001262 012746 120077 MOV @-57701, -(SP) 
001266 004737 000000G JSR PC,SET.RDESCR.LIST 
001272 012737 160000 0000046 MOV @-20000,RCV.D.LIST+4 3 3173 
001300 012777 000000G 000004G MOV ORCV. 0. LIST. @10P. TABLE+4 ; 3174 
001306 005077 000006G CLR @IOP . TABLE +6 : 3175 
001312 013716 000000G MOV XBUF .LENGTH, (SP) ; 3177 
001316 012746 120000 MOV @-60000, -(SP) 
001322 004737 000000G JSR PC,SET. XDESCR.LIST 
001326 012777 000000G 0000106 MOV OXMIT.0.LIST,@I0P. TABLE+10 : 3178 
001334 005077 000012G CLR @IOP . TABLE +12 3 3179 
001340 012716 000001 MOV #1,(SP) ; 3181 
001344 004737 000000G uSR PC.CHK.RIXI. STATUS 
001350 012716 000220 MOV 0220, : 3183 
001354 011646 MOV (SP), -(SP) 
001356 004737 000000G JSR PC,CHK.CSR. STATUS 
001362 012716 140000 MOV @-40000, (SP) ; 3184 
001366 012746 000400 MOV 0400, -(SP) 
001372 004737 900000G JSR PC, CHK. XMIT. STATUS 
001376 012777 000001 0000155 MOV 01, 910P. TABLE +16 : 3186 
001404 012701 000024 MOV 024,R1 ; *,$$TMP2 3188 
001410 001410 208: BEQ 23s 
001412 013700 0000006 MOV LSDLY,RO : *,$STMPL 
001416 001403 BEQ 22$ 
001420 005066 000040 215: CLR 40( SP) 3 $$TMP 
001424 077003 S08 RO,21$ ; $$TMPl,« 
001426 005301 22%: DEC R1 3 $$TMP2 
001430 000767 BR 20% 
001432 013700 0000006 23%: MOV REG. ADR,RO : 3189 
001426 016066 000016 000034 MOV 16(RO), 34(SP) 3; *,TMP.LOCATION 
001444 032766 000004 000034 BIT o4.34(SP) ; *,TMP.LOCATION 
001452 001047 BNE 
001454 013701 000000G MOV ACV .0.LIST.RL : 3191 
001460 042701 037777 BIC 037777, 
001464 020127 140000 CMP R1,#-40000 
001470 001440 BEQ 24$ 
001472 016666 000034 000036 MOV 34(SP),36(SP) ; *,TMP.LOCATION 3194 
001500 016637 000036 0000006 MOV 36(SP),CSR.WORD ; TMP.LOCATION,*+ 
001506 005077 000016G CLR @IOP. TABLE +16 ; 3195 
001512 012716 000000G MOV MSG59, (SP) ; 3196 
001516 012746 000001 MOV #1,-(SP) 
001522 010600 MOV SP RO ; SP,« 
001524 104414 TRAP 14 
001526 012716 000000G MOV oMSG29, (SP) : 3197 
001532 012746 000001 MOV #1,-(SP) 
001536 010600 MOV SP RO ; SP,« 


RRSP ES TESTI ZT Ra a ae 
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SEQ 0161 

ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 80 
v01.0 TEST 12 - NXM INTERRUPT TEST 5-Jul-1984 14:02:06 ({MAZURCZYK .DEQNA]ZQNA3.BLI;2 (30) 
001540 104414 TRAP 
001542 012716 000000G MOV @MSG27, (SP) ; 3198 
001546 012746 000001 MOV #1,-C(SP) 
001552 010600 MOV SP RO 3; SP,« 
001554 104414 TRAP 14 
001556 104455 TRAP 55 ; 3199 
001560 002265 -WORD 2265 
001562 .WORD MSGOO 
001564 000000G -WORD ERRORSREPORT 
001566 062706 000006 ADD 66, 3 3193 
001572 005077 000016G 243: CLR @IOP. TABLE +16 ; 3201 
001576 062706 000010 ADD #10,SP ; 3162 
001602 104467 TRAP 67 : 3201 
001604 006000 ROR RO 
001606 103620 BLO 19% 
001610 062706 000032 ADD $32,SP : 2951 
001614 012601 MOV (SP)+,R1 
001616 000207 RTS PC 
: Routine Size: 456 words, Routine Base: ABSCODES + 10440 
; Maximum stack depth per invocation: 23 words 

-SBTTL Ti2 TEST 12 - NXM INTERRUPT TEST 
000000 004737 010440’ Tle:: 
000000 1$: JSR PC,$Tl2 Fy 3202 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
3; Routine Size: 6 words, Routine Base: ABSCODES + 12260 
; Maximum stack depth per invocation: 2 words 


3205 1 


| th Be 





G13 


SEQ O 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 omy 81 
v01.0 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 5-Jul-1984 14:02:Co [MAZURCZYK .DEQNA ]ZQNA3.BLI;2 (31) 
3 3206 1 “@SBTTL ‘TEST 13 - MULTIPLE AND CHAINED PACKET TEST’ 
3 3207 1 fee 
: 3208 1 $ 
; 3209 1 : TEST 13: MULTIPLE AND CHAINED PACKET TEST 
3 3210 1 : 
3 3211 1 ' DESCRIPTION: 
3 3212 1 $ ‘ 
: 3213 1 : This test verifies that the DEQNA can transmit and receive multiple, 
; cots 1 : linked and chained loopback packets. 
: 321 1 : 
: 3216 1 $ If the operator specifies loop on error, the program re-executes the 
: asta 1 : code that detected the error until tC is entered. 
: 16 1 : 
: 3219 1 $ Hardware tested: 
: 3220 1 : 
: 3221 1 : Processing: 
3 3222 1 : 
3 3223 1 : BEGIN 
: 3224 1 $ reset device 
; 3225 1 $ select internal/extended loopback mode 
: 3226 1 H transmit simple loopback packet 
; 3227 1 $ check for expected loopback status 
: 3228 1 $ IF error 
3 3229 1 : THEN 
F 3230 1 : print error message if not inhibited 
$ 3231 1 : ENDIF 
; 3232 1 8 cell compare_packets 
3 3233 1 $ 
F 3234 1 H transmit multiple, linked and chaind loopback packet 
: 3235 1 $ check for expected loopback status 
8 3236 1 8 IF error 
8 S237 i H THEN 
F 3238 1 H print error message if not inhibited 
‘ 3239 1 H ENDIF 
s 3240 1 : call compare_packets 
3 3241 : : END 
H | 





H14 


W000 09 09 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9 0 9 Tt dt dt td dd 7 7 7 Td dG tt Gt tt 


H13 


5-Jul-1984 14:05:07 


CZQNACO DEGNA FUNCTIONAL 
5-Jul-1984 14:02:06 


TEST 
TEST 13 - MULTIPLE AND CHAINED PACKET TEST 
BGNTST; 


RBUF _LENGTH = 64; 
XBUF LENGTH = - ( -RBUF _LLENGTH ft -1 ); 


" LOOPBACK UNCHAINED PACKET, THEN CHECK IF IT WAS PROPERLY RECEIVED 


RESET_DEQNA ( ); 
INCR INDEX FROM O TO 63 DO 
XMIT_BUFFER [ .INDEX ] = . INDEX; 


BGNSUB ; 
SET_ RDESCR_ LIST ( .XBUF_LENGTH, VE ); 
SET_XDESCR_LIST ¢ . XBUF “LENGTH, VE ); 
SEND_ELOOP_PACKET ( ZERO ); 
COMPARE PACKETS ( ); 


ENOSUB; 

RESET_DEQNA ( ); 

CLR_BUFFERS ( 512 ); 

INCR INDEX FROM O TO 363 DO 
XMIT_BUFFER [ .INDEX ] = . INDEX; 


BGNSUB ; 
INCR INDEX FROM O TO 63 DO 
RCV_D_LIST ( .INDEX, W_LEN ] = .RD13 [ .INDEX J; 
NCR INDEX FROM O TO 31 00 
XMIT_D_LIST { .INDEX, W_LEN ] = .1013 [ .INDEX J; 


XMIT_D_LIST [ 7, W_LEN ] = VE; 
XMIT_D_LIST ({ 13, W_LEN ] = E; 


PUT_BIT [ CSR, LB, INX_LOOPBACK ]; 
XMIT_AND_RCV_PACKET ( ); 
CHK _RIXI_STATUS ( ZERO ); 


CHK_CSR_STATUS ( CSR_ STATUS, CSR_MASK ); ! 0°100220', 0'100220' 


XMIT_D_LIST [ 7, WLLEN ] = V; 
XMIT_DO_LIST ({ 12, W_LEN ] = NEWB; 
XMIT_D_LIST [ 13, WLLEN ] = V; 


-IOP_TABLE [ XLO_ADR ] = XMIT_D_LIST + 24; 
.IOP_TABLE [ XHI_ADR ] = ZERO; 


CHK _wIXI_STATUS ( ZERO 


); 
CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK ); ' 0'100220', 0'100220' 


¢¢ 
CHECK IF RECEIVE BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


T1345 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK . DEQNA JZQNA3.BLI;2 


SEQ 016 
Page 


3 


(32 


) 


<N 
es 
rw 

ow 
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CZQNACO DEQNA FUNCTIONAL T 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 13 - MULTIPLE AND CHAINED PACKET TEST S-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA]ZQNA3.BLI;2 


INCR INDEX FROM O TO 53 DO 
Ss . INDEX, W.LEN ] NEQU .RD13 [ . INDEX ] 

. INDEX, W_LEN ] AND #0'140000’ ) NEQU #0’ 140000’ 

AND RCV. _D_LIST ( .INDEX, W_LEN ] NEQU #0'020600° 


BEGIN 
CSR_WORD = Se ( CSR_ALL ); 
5 


); 
-RCV_O_LIST [{ .INDEX, W_LEN ]), .RD13 [ .INDEX J], .INDEX ); 
1301, MSGOO, ERRORSREPORT ); 


CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


INCR INDEX FROM O TO 23 DO 
-XMIT_D_LIST [ .INDEX, W_LEN j NEQU .TD13 [ .INDEX ] 
- INDEX, W_LEN ] AND #0'140000' ) NEQU #0’ 140000' 
. - INDEX, W_.LEN ] NEQU #0'020414' 
TP ie -D_LIST { .INDEX, W_LEN ) NEQU #0'004140' 


BEGIN 
CSR_WORD = i oe € CSR_ALL ); 


); 
MSGSO, *XMIT_ D_LIST { .INDEX, W_LEN ], .7013 [ .INDEX J], .INDEX ); 
1302, MSGOO, ERRORSREPORT ); 
INCR INDEX FROM O TO 5S DO 
BEGIN 


XMIT_O_LIST { . INDEX, W_LEN } 
RCV_D_LIST [ .INDEX, W_LEN ] 
H 


= .XMIT_D_LIST [ .INDEX «+ 24, fe cy ); 
= .RCV_O_LIST [ JINDEX + 54, W_CEN ); 
CHK _XMIT_STATUS ( XFLG_STATUS, xWDi2_STATUS ); ! 0'140000', 0'000400' 
CHK_RCV_STATUS ( RFLG_STATUS, RWDI_STATUS ); 0‘ 140000‘, 0'020000' 


INCR INDEX FROM O TO 383 DO 
7 a ere { .INDEX ] NEQU .RCV_BUFFER [ .INDEX ] 


BEGIN 
CSR_WORD = — ( CSR_ALL ); 


H 
. -RCV_BUFFER [ .INDEX ], .XMIT_BUFFER [ .INDEX ], .INDEX ); 
1303, MSGOO, ERRORSREPORT ); 


J13 


SEQ 0165 

ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 84 
vo1.0 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 5-Jul-1984 14:02:06  [MAZURCZYK.DEQNA]ZQNA3.BLI;2 (32) 
; 3349 1 ENDTST; 

.SBTTL $T13 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 
000000 004137 0000006 $713: JSR R1, $SAVES 3204 
000004 162706 000006 SUB #6,SP 
000010 012737 000100 0000006 MOV #100, RBUF . LENGTH , 3245 
000016 012700 000100 MOV #100,RO ; 3246 
000022 006200 ASR RO 
000024 005400 NEG RO 
000026 010037 0000006 MOV RO, XBUF .LENGTH 
000032 004737 0000006 JSR PC, RESET .DEQNA ; 3252 
000036 005000 CLR RO ; 3253 
000040 110060 0000006 1$: MOVB RO, XMIT.BUFFER(RO) ; INDEX, *#C INDEX) 3254 
090044 005200 INC RO ; INDEX 3253 
000046 020027 000077 CMP RO, 077 ; INDEX, 
000052 003772 BLE 1$ 
000054 104402 2s: TRAP = 2 : 3254 
000056 013746 0000006 MOV XBUF .LENGTH, -(SP) ; 3257 
000062 012746 120000 MOV #-60000, -(SP) 
000066 004737 0000006 JSR PC,SET.RDESCR.LIST 
000072 013716 9000006 MOV XBUF .LENGTH, (SP) : 3258 
000076 012746 120000 MOV #-60000, -( SP) 
000102 004737 0000006 JSR PC, SET. XDESCR.LIST 
000106 005016 CLR (SP) : 3259 
000110 004737 0000006 JSR PC, SEND.ELOOP. PACKET 
000114 004737 0000006 JSR PC. COMPARE .PACKETS ; 3260 
000120 062706 000006 ADD 06, SP ; 3254 
000124 104467 TRAP 67 : 3260 
000126 ROR RO 
000130 103751 BLO 
000132 004737 0000006 JSR Bc, RESET .DEQNA ; 3263 
000136 012746 001000 MOV #1000, -(SP) ; 3264 
000142 004737 0000006 JSR PC, CLR. BUFFERS 
000146 005000 CLR RO ; INDEX 3265 
000150 110060 0000006 3$: MOVB RO, XMIT.BUFFER(RO) ; INDEX, #( INDEX) 3266 
000154 005200 INC RO ; INDEX 3265 
000156 020027 000577 CMP RO, 0577 ; INDEX,*« 
000162 003772 BLE 3$ 
000164 104402 4s TRAP , 3266 
000166 005000 CLR RO ; INDEX 3270 
000170 016060 0000006 0000006 S$: MOV RD13(RO),RCV.D.LISTCRO) ; #( INDEX), #C INDEX) 3271 
000176 062700 000002 ADD #2,RO 3 *, INDEX 3270 
000202 020027 000176 CMP RO, #176 ; INDEX,« 
000206 003770 BLE S$ 1 
000210 005000 CLR RO ; INDEX 3272 
000212 016060 0000006 0000006 6$: MOV TD13(RO),XMIT.D.LISTCRO) ; #( INDEX), #C INDEX) 3273 
000220 062700 000002 ADD #2,RO ; *, INDEX 3272 
000224 020027 000076 CMP RO, #76 ; INDEX, « 
000230 003770 BLE 6$ 
000232 012737 120000 000016G MOV #-60060, XMIT.D.LIST+16 i 3275 
000240 012737 020000 000032¢ MOV #20000, XMIT.D.LIST+32 ; 3276 
000246 013700 0000006 MOV REG. ADR,RO ; 3278 


| i712 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 13 - MULTIPLE AND CHAINED PACKET TEST 


001400 000016 
001000 000016 
000000G 


7$: 
000000G 
037777 
140000 
020600 


000000G 

000016 000006 
000006 000000G 
000000G 

090001 


000004 


000014 


K13 


5-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


#1400, 16(RO) 

#1000, 16(RO) 

— 
PC, CHK .RIXI.STATUS 
@-77560,(SP) 

(SP),-CSP) 
PC,CHK.CSR.STATUS 
#-100000, XMIT.D.LIST+16 
#-100000, XMIT.D.LIST+36 
#-100000, XMIT.D.LIST+32 
#XMIT.D.LIST+30,@I0P. TABLE+10 
@IOP. TABLE +12 

(SP) 

PC, CHK .RIXI.STATUS 
@-77560,(SP) 

(SP), -(€SP) 
aaatencmpeacaninines 


R3,R1 
R 


1 
RCV.D.LISTCR1),RO 
ee 


RO,R2 
037777,R2 
R2,%-40000 
8$ 

RO, #20600 

8$ 
REG.ADR,RO 
16(RO),6(SP) 
6(SP),CSR.WORD 
@MSGS9, (SP) 
#1,-(SP) 

SP RO 


14 
@MSG48 , (SP) 
#1, -(SP) 
SP,RO 

14 

R3,(SP) 
RD13(R1),-CSP) 
RCV.D.LISTCR1), -CSP) 
@MSGSO, -( SP) 
04,-(SP) 

SP ,RO 

14 

55 

2425 

MSGOO 
ERROR$REPORT 
#14 ,SP 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK . DEQNA JZQNA3.BLI;2 


INDEX 
INDEX, * 


*, TMP .LOCATION 
TMP .LOCATION, « 


SP, + 


SP,* 
INDEX, * 


SP,* 


3303 


3304 


3305 


3306 


3307 


3302 


Lis 
SEQ 0167 


CZQNACO DEQNA FUNCTIONAL TEST : VAX-11 Bliss-16 V4.0-579 Page 
TEST 13 - MULTIPLE AND CHAINED PACKET TEST [MAZURCZYK .DEGNA)ZQNA3.BLI;2 


8$: R3 s INDEX 
000065 — 3 INDEX,« 


R3 : INDEX 
9$: ~ eile ; INDEX,+* 


R1 
000000G XMIT.D.LISTCR1L),RO 
000000G > pa 1) 


RO,R2 
037777 037777 ,R2 
140000 CMP R2,#-40000 


10$ 
020414 aise 
004140 OF : —_ 


1 
000000G REG.ADR,RO 
000016 000010 16(RO),10(SP) *, TMP .LOCATION 
000010 000000G TMP .LOCATION, # 
000000G ; GS9,(SP) 


000001 
SP,* 


14 
000000G @MSG49, (SP) 
000001 #1,-C(SP) 
SP ,RO SP,* 
14 
R3,(SP) INDEX, 
000000G TD13(R1),-CSP) 
000000G XMIT.D.LISTCR1),-CSP) 
000000G SGS50, -(SP) 


INDEX 
INDEX, # 


INDEX 
INDEX, « 


; INDEX,* 


R1 
000060G 000000G XMIT.D.LIST+60(R1),XMIT.DO.LISTCRO) ; 
R2,R1 ; I EX,* 


R1 
000154G 000000G RCV.D.LIST+154(R1),RCV.D.LISTCRO) ; 
Re 3 INDEX 





M12 


M13 


SEQ 0168 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 87 
vo1.0 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)ZQNA3.BLI;2 (32) 
001000 020227 000005 CMP R2,05 : INDEX,« 
001004 003760 BLE 11$ 
001006 012716 140000 MOV #-40000, (SP) : 3334 
001012 012746 000400 MOV #400, -(SP) 
001016 004737 000000G JSR PC,CHK.XMIT. STATUS 
001022 012716 140000 MOV #-40000, (SP) ; 3325 
001026 012746 020000 MOV #20000, -( SP) 
001032 004737 000000G JSR PC, CHK .RCV.STATUS 
001036 005001 CLR R1 ; INDEX 3337 
001049 126161 000000G 000000G 12$: CMPB XMIT.BUFFERC(R1),RCV.BUFFERCR1) ; #*C INDEX), *( INDEX) 3338 
001046 001447 BEQ 13% 
001050 013700 000000G MOV REG. ADR ,RO ; 3341 
001054 016066 000016 000016 MOV 16(RO),16(SP) ; *,TMP.LOCATION 
001062 016637 000016 000000G MOV 16(SP),CSR 3; TMP.LOCATION,« 
001070 012716 MOV om A H 3342 
001074 012746 000001 MOV #1,-(SP) 
001100 010600 MOV SP ,RO ; SP, 
001102 104414 TRAP 14 
001104 ©12716 000000G MOV #MSG51,(SP) F 3343 
001110 012746 000001 MOV #1,-CSP) 
001114 010600 MOV SP,RO : SP, 
001116 104414 TRAP 14 
001120 010116 MOV R1,(SP) ; INDEX,* 3344 
001122 005046 CLR - 
001124 116116 000000G MOVB XMIT.BUFFER(R1),(SP) ; *CINDEX),« 
001130 005046 CLR -(SP) 
001132 116116 000000G MOVB RCV .BUFFERCR1), (SP) ; *CINDEX),« 
001136 012746 000000G MOV @MSGSO, -( SP) 
001142 012746 000004 MOV 04,-(SP) 
001146 010600 MOV SP ,RO ; SP,* 
001150 104414 TRAP 14 
001152 104455 TRAP 55 : 3345 
001154 002427 . WORD 2427 
001156 000000G .WORD MSGOO 
001160 000000G .WORD ERRORSREPORT 
001162 062706 000014 ADD #14,SP : 3340 
001166 005201 13$: INC R1 ; INDEX 3337 
001170 020127 000577 CMP R1,0577 ; INDEX,* 
001174 003721 BLE 12$ 
001176 062706 000010 ADD #10,SP ; 3266 
001202 104467 TRAP 67 a 3346 
001204 606000 ROR RO 
001206 103002 BHIS 14$ 
001210 000137 012460' JMP 4$ 
001214 062706 000019 14$: ADD #10,SP 3 3204 
001220 000207 RTS PC 
: Routine Size: 329 words, Routine Base: ABSCODE$ + 12274 


; Maximum stack depth per invocation: 20 words 


| Ai4 7 | 


000010 
000012 


; Routine Size: : 
; Maximum stack depth per invocation: 2 words 


004737 
104466 


006000 
103773 
000207 


; 3350 1 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 13 - MULTIPLE AND CHAINED PACKET TEST 


-SBTTL T13 TEST 13 - MULTIPLE AND CHAINED PACKET TEST 


012274' 


6 words, 


T13:: 


1$: 


PC,$T13 
66 


Routine Base: ABSCODES + 13516 


N13 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


VAX-11 Bliss-16 V4.0-579 


(MAZURCZYK .DEQNAJZQNA3.BLI;2 


SEQ 0169 


Page 


88 
(32) 


3347 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul -1984 
TEST 14 - OMA TIMING TEST 5-Jul - 1984 


SSBTTL ‘TEST 14 - DMA TIMING TEST’ 


CS OS OS CS OCS OS OS 6S 6S OS OS OS 6S 6S CS OS OS CS OCS 6S 1S CS 1S 1S 1S 61S 1S 1S OS 6S 1S 1G 1S 6S 1S 1S OE 1H te +e te 
* 


:07 VAX-11 Bliss-16 V4.0-579 
206 ([MAZURCZYK .DEQNA )ZQNA3.BLI;2 


TEST 14: OMA TIMING TEST 
DESCRIPTION: 


This test verifies that the DMA transfer completes within 'X’ msec. 
Chained and linked 1514 byte loopback packet is used to accomplish 
this test. If the operator specifies loop on error, the program 
re-crecutes the code that detected the error until tC is entered. 


NOTE: An answer to the *c! lowing software quastion 
SYSTEM HAS BLOCK MODE MEMORY (L)? 
determines the value for ‘X’. 


Hardware tested: Internal/Extended loopbaci: 
Transmit stetus - lest descriptor in chain (bit 15) 
Receive status - last descriptor in chain (bit 15) 
- error summary (bit 14) 
Processing: 


BEGIN 
reset device 
select internal/extended loopback mode 
set the timeout timer to ‘X' msec 
transmit chained loopback packet 
stert the timer 
IF timeout 
THEN 
print error message if not inhibited 
ENDIF 
check for expected loopback status 
IF error 
THEN 
print error message if not inhibited 
IF 


call compare_packets 
END 


C14 


SEQ 0170 - 
ner 33) 


C14 


SEQ 017 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Moly 90 
v01.0 TEST 14 - DMA TIMING TEST S-Jul-1984 14:02:06 {MAZURCZYK . DEQNA JZQNA3.BLI;2 (34) 
3393 BGNTST; 


RBUF LENGTH = LEGAL_LENGTH; 

XBUF_LENGTH = - ( .ABUF_LENGTH ft -1 ); 

INCR INDEX FROM O TO LEGAL_LENGTH - 1 DO 
XMIT_BUFFER [ .INDEX ] = . INDEX; 


BGNSUB ; 
RESET DEQNA ( ); 
INCR INDEX FROM O TO 63 DO 
RCV_D_LIST { . INDEX, W_LEN ) = .RD13 [ .INDEX ]; 
INCR INDEX FROM O TO 31 DO 
XMIT_O_LIST { . INDEX, W.LEN ]) = .TD13 [ .INDEX ]; 


TEMPS = .XMIT_O_LIST [ 27, W_LEN ); 
TEMP6 = .RCV_D_LIST [ 51, W_LEN ); 
TEMP7 = .RCV_D_LIST [ 56, W_LEN ); 


XMIT_D_LIST f 27, WL.LEN ) = -628; 


3412 RCvV_D_LIST 51, W_.LEN ) = -625; 

oaee RCv_D_LIS? [ 56, W_LEN ) = RCV_ BUFFER ¢ LEGAL_LENGTH - 2; 
14 

3415 PUT_BIT ( CSR, LB, INX_LOOPBACK ); 

3416 XMIT_ AND_RCV_PACKET ( ); 

3418 CHK _RIXI_STATUS ( ONE ); 

3420 IF .SWP_BLOCK_MEM EQLU ONE 

3421 THEN 

3422 TEMP4 = #0‘ 305’ 

3423 LSE 

3424 TEMP4 = 4 « #60'305‘; 

3425 

3426 IF .TEMP1 GTRU .TEMP4 

3427 THEN 

3428 BEGIN 

3429 CSR_WORD = GET_BIT ( CSR_ALL ); 

3430 PRINTB ( MSG5S9 ); 

3431 PRINTB ( MSGS2 ); 

3432 ERROF ( 1401, MSG00, ERRORSREPORT ); 

te END; 

3435 CHK _CSR_STATUS ( CSR_STATUS, CSR_MASK ); £ 0'100220', 0'100220' 


XMIT_D_LIST { 27, W_LEN ] = . TEMPS; 
RCV_O_LIST [ 51, W_LEN ] = .TEMP6; 
RCV_O_LIST [ 56, W_LEN ] = .TEMP7; 


CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


INCR INDEX FROM O TO 23 DO 
IF .XMIT_D_LIST [ .INDEX, W_LEN ] NEQU .TD13 [ .INDEX ] 


ee Ge Ge Ge Ge Gs Ge Ge Ge Ge SS Ge Ge Gt Ge Ge Ge Ge Ge GH Ge Ge Ge Ge Ge Ge GH Ge Ge GH Ge Ge Ge GH Ge Ge Ge Gt Ge Ge Ge Ge Gt Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
ray 
~ 
se te +@ 
+ 


rw 
o 
GGA AUT UT UT UT UTI OOOAOOUUIUIUIUIUIUT UT U0 0 0 0 0 0 0 0 9 9 9 09 9 7 7 7 Tt Gt tt tt 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 14 - DMA TIMING TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA ]ZQNA3.8LI;2 
on > .XMIT_O_LIST { .INDEX, W_LEN ] AND #0'140000' ) NEQU #0’ 140000’ 
N 
BEGIN 
_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSGS5S9 ); 
PRINTB ( MSG49 ); 
PRINTB ( MSGS, .XMIT_D_LIST { . INDEX, W_LEN ]), .1013 { .INDEX J), .INDEX ); 
© se € 1402, MSGOO, ERRORSREPORT ); 
END; 


foe 
' CHECK IF RECEIVE BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 
o 


INCR INDEX FROM 0 TO 53 DO 
IF .RCV_O_LIST { . INDEX, W_LEN ] NEQU .RD13 [ . INDEX ] 
on > -RCV_D_LIST ( .INDEX, W_LEN AND #0'140000' ) NEQU #0‘ 140000° 

N 

BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSGS9 ); 
PRINTB ( MSG48 ); 
PRINTB ( MSGS5O, "RCV. D_LIST { .INDEX, W_LEN ], .RD13 [ .INDEX J], . INDEX ); 
ERROF ( 1403, MSGOO, ERRORSREPORT ; 


INCR INDEX FROM O TO 5 DO 
BEGIN 


TEMP1 = . INDEX + 24; 
TEMP2 = . INDEX + 54; 
XMIT_D_LIST { .INDEX, W_LEN ) = .XMIT_D_LIST ( .TEMP1, W_LEN J; 
RCV_D_LIST [ .INDEX, W.LEN ] = .RCV_D_LIST [ .TEMP2, W_LEN ); 
3 


RBUF _LENGTH = 1514; 
CHK _XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); ! 0'140000', 0’000400' 
CHK_RCV_STATUS ( RFLG_STATUS, RWD1_STATUS ); ! 0'140000', 0'020000' 


INCR INDEX FROM O TO LEGAL_LENGTH - 1 DO 
—* BUFFER [ . INDEX ] NEQU “rev. BUFFER [ .INDEX ) 
N 


BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSGS59 ); 
PRINTB ( MSG51 ); 
PRINTB ( MSGSO, .RCV_BUFFER [ Te ]), .XMIT_BUFFER ({ .INDEX ), .INDEX ); 
ERRDF ( 1404, MSGOO, ERRORSREPORT ); 
END; 
ENDSUB; 


ENOTST; 


-SBTTL $114 TEST 14 - DMA TIMING TEST 


SEQ 0172 
Page 91 
(34) 





ZQNA3 CZQNACO 


v01.0 TEST 14 


000000G 
000004 162706 000010 
000010 212737 002752 
000016 012700 002752 


DEQNA FUNCTIONAL TEST 
- DMA TIMING TEST 


$714; 


1$: 


2s: 


3$: 


4$: 


5$: 
6$: 


E14 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


R1, $SAVE2 

#10,SP 

02752 ,RBUF .LENGTH 
— 


RO 
RO, XBUF .LENGTH 
RO 


RO, XMIT.BUFFERCRO) 
RO 


RO, #2751 
1$ 


2 

ee 
RD13(RO),RCV.O.LISTCRO) 
#2,R0 

RO,9176 

3$ 


RO 
TD13(RO),XMIT.D.LISTCRO) 
¢2,RO0 
RO, 076 


as 

XMIT.D.LIST +66, TEMPS 
RCV.D.LIST+146, TEMP6 
RCV.D0.LIST+160, TEMP7 
#-1164,XMIT.D.LIST +66 
#-1161,RCV.D.LIST+146 


ORCV .BUFFER+2750,RCV.D.LIST+160 


REG.ADR,RO 

#1400, 16(RO) 

#1000, 16(RO) 

PC, XMIT.AND.RCV.PACKET 
#1, -(SP) 

PC,CHK .RIXI.STATUS 

Be ne 


#305, TEMP4 
6$ 


91424, TEMP4 

dlc 
$ 

REG. ADR ,RO 

16(RO),2¢SP) 

2(SP),CSR.WORD 

OMSGS9, (SP) 

#1, -(SP) 

SP,RO 

14 

@MSGS2, (SP) 

#1,-CSP) 

SP ,RO 


SEQ 0173 
VAX-11 Bliss-16 V4.0-579 Page 92 
([MAZURCZYK .DEQNA )ZQNA3.BLI;2 (34) 
$ 3349 
$ 3395 
8 3396 
; INDEX 3397 
s INDEX, *( INDEX) 33 
: INDEX 3397 
3: INDEX,« 
3 3398 
3 3401 
: INDEX 3402 
s *C INDEX), *C INDEX) 3403 
3; *, INDEX 3402 
. INDEX, «# 
3; INDEX 3404 
3: *C INDEX), *C INDEX) 3405 
3; *, INDEX 3404 
3; INDEX,« 
3 3407 
Fy 3408 
H 3409 
3 3411 
: 3412 
: 3413 
: 3415 
: 3416 
: 3418 
; 3420 
: 3422 
: 3420 
: 3424 
; 3426 
; 3429 
; *,TMP.LOCATION 
; TMP.LOCATION,*® 
F 3430 
3; SP, 
: 3431 
; SP,* 


| 4 A 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 14 - DMA TIMING TEST 


100220 7$: 


000000G 000066G 
000000G 000146G 
000000G 000160G 
8$: 


000000G 000000G 


000000G 
037777 
140000 


000000G 
000016 000006 
000006 

000001 


090000G 
000001 


9$: 
006027 


10$: 


000000G 


F14 


S-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


14 
SS 
2571 


MSGOO 
ERROR $REPORT 


(SP), -CSP) 
PC,CHK.CSR.STATUS 
TEMPS ,XMIT.D.LIST +66 
TEMP6 ,REV.D.LIST +146 
TEMP7 ,RCV.D.LIST+160 


R2 

R2,R1 

Ri 

~ al atta hcatatt 


XMIT.D.LISTCR1),RO 
037777,RO 
RO, #-40000 


9 
REG.ADR,RO 
16(RO),6(SP) 
6(SP),CSR.WORD 
@MSG59, (SP) 
#1,-(SP) 

eRO 
14 
oMSG49,(SP) 
#1,-(SP) 
SP,RO 
14 
R2,¢SP) 
TO13(R1),-CSP) 
XMIT.D.LISTCR1),-(SP) 

50, -(SP) 


MSGOO 

ERROR SREPORT 
#14,SP 

R2 


R2,027 
8$ 

R2 
R2,R1 


R1 
1+ ‘inadalaa ian 
RCV.D.LISTCR1),RO 


SEQ 0174 
VAX-11 Bliss-16 V4.0-579 Page 
(MAZURCZYK .DEQNA JZQNA3.BLI;2 (34) 
F 3432 
8 3428 
$ 3435 
3 3437 
8 3438 
$ 3439 
s INDEX 3444 
3; INDEX,« 3445 
Fy 3446 
Fy 3449 
3 *,TMP.LOCATION 
3; TMP.LOCATION,« 
Fy 3450 
2 SP, 
; 3451 
a SP,* 
: INDEX,« 3452 
; SP,« 
: 3453 
‘ 3448 
3 INDEX 3444 
; INDEX,« 
3 INDEX 3459 
3s INDEX,* 3460 
H 3461 


| G14 | 





CZQNACO DEQNA FUNCTIONAL TEST 


TEST 14 - DMA TIMING TEST 


037777 
140000 


000000G 
000016 000010 
000000G 


000010 
000001 


000000G 
000001 


000000G 
000000G 
000000G 


006014 


11$: 


12$: 


G14 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


037777,RO0 

RO, @-40000 
11$ 

REG.ADR,RO 
16(RO), 10(SP) 


16 
@MSG48 , (SP) 
+ athe 


14 

R2,(SP) 

RDi3(R1), -(SP) 
RCv.D. LIST(R1), -(SP) 
OMSGSO, -C SP) 


SGOO 
ERROR SREPORT 
+ eal 


2 
R2, 965 
10$ 


R2 

R2, TEMP1 

030, TEMP1 
R2, TEMP2 

066, TEMP2 
R2,RO 


RO 
TEMP1,R1 


R1 
XMIT.O.LISTCR1), XMIT.D.LISTCRO) 
TEMP2,R1 


R1 
arate tatters 


R2,05 
12$ 


#2752, RBUF .LENGTH 
o- 40000, (SP) 

400, -(SP) 
PC,CHK.XMIT.STATUS 
@-40000, (SP) 
#20000, -( SP) 

“* »CHK RCV. STATUS 


Hia4 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEQNA)JZQNA3.BLI;2 


+, TMP .LOCATION 
TMP .LOCATION, « 


SP,« 


SP ,* 
INDEX, « 


SP,* 


INDEX 
INDEX, # 


INDEX 
INDEX, ¢ 


INDEX, 
INDEX, # 


INDEX 
INDEX, 


INDEX 


3465 
3466 


3467 


3468 


3463 
3459 


3471 
3473 
3474 
3475 


3476 


3481 


3483 


ce ay 


Routine Size: 
Maximum stack 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 14 - OMA TIMING TEST 


000000G 000000G 138: 
000000G 

000016 000016 

000016 000000G 

000001 


000000G 
000001 


000014 
002751 
000010 


< 


14$: 


013602" 


000010 15$: 


339 words, Routine Base: 


depth per invocation: 


013532’ 


Routine Base: 


6 words, 


19 words 


ABSCODE$ 


ABSCONE$ 


H1i4 


5-Jul-1984 14:05:07 
55-Jul-1984 14:02:06 


a ee 


REG.ADR,RO 

16(RO),16(SP) 

SP),CSR.WORD 
(SP) 


R1,(SP) 

-(SP) 

XMIT .BUFFER(R1),(SP) 
-(SP) 

a toe 


@mMSGS5O, -(S 
an 


14 
5S 
2574 


MSGOO 
ERROR $REPORT 
014,SP 


R1 
R1,02751 
13$ 
#10,SP 
67 

RO 
15% 
2s 
#10,SP 
PC 


¢ 13532 


T14 TEST 14 - DMA TIMING TEST 
PC,$T14 
66 


+ 15000 


T14 


VAX-11 Bliss-16 V4.0-579 
{[MAZURCZYK . DEQNA JZQNA3.BLI;2 


s *C INDEX), #( INDEX) 


*, TMP .LOCATION 
TMP .LOCATION, ¢ 


; SP, 


3 SP,« 

s INDEX, 

3 *CINDEX),« 
3 *#CINDEX),« 


3; SP,« 


3 INDEX 
; INDEX,¢ 


3491 
3486 
3483 
3398 
3492 


3349 


3493 





T14 


SE 77 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 wm 97 
vo1.0 TEST 15 - LONG PACKET TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA)ZQNA3.ELI;2 (35) 
i 3497 1 *SBTTL ‘TEST 15 - LONG PACKET TEST’ 
; 3498 1 tee 
; 3499 1 : 
3 3500 1 ! TEST 15: LONG PACKET TEST 
; 3501 1 H 
8 3502 1 ! DESCRIPTION: 
; 3503 1 : 
; 3504 1 : This test verifies that DEQNA can detect long packets ( 1600 bytes 
; 3505 1 $ or more with the CRC ) when transmitted in internal/extended 
; 3506 1 : loopback mode. If the operator specifies loop on error, the 
3 3507 1 H program re-executes the code that detected the error until fC is 
; 3508 1 : entered. 
; 3509 1 H 
: cee : : Hardware tested: RCV Status - error summary (long packet-bit 14) 
: 3512 1 : Processing: 
5 3513 i g 
’ 3514 1 H BEGIN 
; 3515 1 2 reset device 
3 3516 1 H select internal/extended loopback mode 
; 3517 1 H transmit loopback packet (legal pecket length) 
; 3516 1 : check for expected loopback status 
; 3519 1 : IF error 
F 3520 1 1 THEN 
Fy 3521 1 4 print error message if not inhibited 
F 3522 1 : ENDIF 
F 3523 1 8 call compare_packets 
F 3524 1 8 transmit loopback packet ( packet length > legal max. ) 
3 3525 1 g IF Error Summary bit ( Receice Status Word 1, bit 14 )-=1 
$ 3526 1 H AND ( receive packet length is truncated ) 
8 3527 1 H THEN 
F 3528 1 4 print error message if not inhibited 
3 3529 1 H ENDIF 
F 3530 1 H END 
F 3531 1 !-- 





| Ha 





J14 


SEQ 0178 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 98 
v01.0 TEST 15 - LONG PACKET TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA]ZQNA3.BLI;2 (36) 
; 3532 3 BGNTST; 
: BH 3 
2 3535 3 : * LOOPBACK 1534 BYTE PACKET AND THEN CHECK IF PROPERLY RECEIVED. 
; 3536 3 ‘ THIS IS THE LONGEST PACKET LENGTH WHICH DOESN’T SET ‘LONGP’ BIT IN 
; 3537 3 : _THE RECEIVE STATUS WORD 1 ( BIT 14 ). 
; 3538 3 :. 
; 3539 3 
; 3540 3 RBUF_LENGTH = 1534; 
; 3541 3 XBUF_LENGTH = - ( .RBUF_LENGTH ft -1 ); 
3 3542 3 
; 3543 5 BGNSUB; 
; 3544 5 RESET_DEQNA ( ); 
; 3545 5S SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
; 3546 5 SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
3; 3547 5 SEND_ELOOP_PACKET ( ZERO ); 
; 3548 5 COMPARE PACKETS ( ); 
; 3549 3 ENDSUB; 
; 3550 3 
; 3551 3 tee 
; es | ; * LOOPBACK 1536 BYTE PACKET AND THEN CHECK IF BITS 13 AND 14 ARE SET IN 
° Deo ias 
3 3554 3 
3 3555 3 
; 3556 3 RBUF_LENGTH = 1536; 
; 3557 3 XBUF LENGTH = - ( .RBUF_LENGTH ¢ -1 ); 
: 3558 3 
; 3559 5 BGNSUB; 
; 3560 5 RESET. DEQNA ( ); 
Fy 3561 5 SET _RDESCR _LTST € .XRUF_LENGTH, VE ); 
; 3562 5 SET_XDESCR LIST ( .XBUF_LENGTH, VE ); 
: 3563 5 SEND _ELOOP_PACKET ( ONE ); 
>; 3564 5 COMPARE PACKETS ( ); 
3 3565 3 ENDSUB; 
: 3566 3 
; 3567 1 ENDTST; 

.SBTTL $715 TEST 15 - LONG PACKET TEST 

000000 012737 002776 000000G $715: MOV #2776, RBUF .LENGTH ; 3540 
000006 012700 002776 MOV #2776 ,RO ; 3541 
000012 006200 ASR RO 
000014 005400 NEG RO 
000016 010037 000000G MOV RO, XBUF .LENGTH 
000022 104402 1$: TRAP 2 
000024 004737 000000G JSR PC,RESET.DEQNA : 3544 
000030 013746 000000G MOV XBUF .LENGTH, -(SP) ; 3545 
000034 012746 120000 MOV #-60000, -(SP) 
000040 004737 000000G JSR PC,SET.RDESCR.LIST 
000044 013716 000000G MOV XBUF .LENGTH, (SP) : 3546 
000050 012746 120000 MOV #-60000, -(SP) 
000054 004737 000000G JSR PC,SET.XDESCR.LIST 
000060 005016 CLR (SP) ; 3547 


| K14 


Routine Size: 


Maximum stack 


004737 
104466 
006000 


103773 
0007.07 


Routine Size: 


Maximum stack depth per invocation: 


3568 1 
3569 1 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 15 - LONG PACKET TEST 


2s: 


70 words, Routine Base: 


depth per invocation: 


T15:: 
1$; 


015014' 


6 words, Routine Base: 


4 words 


2 words 


AG SCODE$ 


- SBTTL 


JSR 
TRAP 
ROR 
BLO 
RTS 


AB $CODE $ 


K14 


§-Jul-1564 14:05:07 
5-Ju] -1984 14:02:06 


PC,SEND.ELSUP .PACKET 
PC COMPARE .PACKETS 
06, SP 

67 

RO 


1$ 
#3000, RBUF .LENGTH 
= 


RO 
RO, XBUF .LENGTH 


2 

PC RESET .DEQNA 
XBUF .LENGTH, -(SP) 
#-60000, -( SP) 
PC,SET.RDESCR.LIST 
XBUF .LENGTH, (SP) 
#-60000, -( SP) 
PC,SET.XDESCR.LIST 
#1,(SP) 
PC,SEND.ELOOP .PACKET 
a talc: 


+ 15014 


T1S TEST 15 - LONG PACKET TEST 


PC,$715 
66 


+ 15230 


VAX-11 Bliss-16 V4.0-579 
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SEQ 0179 


(36) 


3565 


oe @ Ge Ge Ge Ge G+ Ge Ge Ge Gt Se Ge Ge Ge Ge Ge Gt Ge Ge Gt Ge Gt Ge Ge Ge Gt Ge GH Ge Gt Ge GH GH Ge Ge Ge Ge Ge Ge GF Ge Ge oF 


Oe ee a ee ee ee fe pe ee pe fe fe ee bt ee he ee he ee ee ee ee ee ee he pe ee ee ee 


L1i4 
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TEST 16 - ODD PACKET TEST 5S-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA ]ZQNA3.BLI;2 


SSBTTL ‘TEST 16 - ODD PACKET TEST’ 
Soe 


TEST 16: ODD PACKET TEST 
DESCRIPTION: 


This test verifies that DEQNA can transmit and receive odd length 
packets and packets starting and/or ending on odd addresses. Chained 
and unchained descriptor lists are used to verify this. If the operator 
specifies loop on error, the program re-executes the code that detected 
the error until tC is entered. 


Hardware tested: CSR register - XMIT List Invalid (bit 4) 
- RCV List Invalid (bit 5) 
Transmit Descriptor bits 
- XMIT buffer ends on odd byte 
- XMIT buffer ends on even byte 


Set of addresses and packet lengths: 


PACKET ADDRESS PACKET LENGTH 
odd begin odd 
odd begin and end even 
odd end odd 


Processing: 


BEGIN 
reset device 
REPEAT for internal and internal/extended loopback mode 
REPEAT for each packet address and length from set 
check for expected loopback status 
IF error 
THEN 
print error message if not inhibited 
IF 


call compare_packets 
ENDREPEAT 
ENDREPEAT 
END 


M1Z 


M14 
SEQ 0181 
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BGNTST; 


RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM 


i4 00 
WRT_STATION_ADR (€ .INDEX1, PHA_INDEX ); 


BGNSUB ; 
XMIT_SETUP_PACKET ( P_MODE ); 
ENDSUB; 


RBUF __LENGTH = 6; 
XBUF_LENGTH = - ( .RBUF_LENGTH tf -1 ); 


See 
* LOOPBACK A PACKET, THEN CHECK IF LOOPBACK PACKET WAS PROPERLY 
: RECEIVED 


CLR_BUFFERS ( 32 ); 
CLR_DESCR ( ); 
INCR INDEX FROM 0705 
XMIT_BUFFER [ .INDEX iy = INDEX; 


BGNSUB; 
INCR INDEX FROM O TO 43 DO 
XMIT_D_LIST { .INDEX, W_LEN ) = .T016 [ .INDEX ]; 
SET _RDESCR_ LIST C . XBUF _ LENGTH, VE ); 
PUT “BIT { CSR, LB, INT_ COOPBACK 1; 


XMIT_AND_RCV_PACKET ( 5 


-IOP_TABLE { CSR ] = ZERO; 
CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK ); ! 0'100220', 0'100220' 
4 "CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATEOD 
. 
INCR INDEX FROM O TO 17 DO 


IF .XMIT_DO_LIST ([ .iNDEX, W_LEN ] NEQU .T016 [ .INDEX ] 
we -XMIT_D_LIST [ .INDEX, W_LEN ] AND #0'140000' ) NEQU #0’ 140000' 
N 


BEGIN 
CSR_WORD = GET_BIT (¢ CSR_ALL ); 
PRINTB ( MSG59 ); 


ee Ge Ge Gs Gs Gs Ge Gr Ge Ge Ge Ge Ge Ge Gs Ge Ge Gt Gt Ge Gs Ge Ge Ge Se Ge Ge GF Ge Gs Ge GH Gs Gs GF Ge Ge GF GH Gs Ge SF Gs Gs Gs Gs Ge Ge Ge Gs Ge Ge os 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
5 
5 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
5 
5 
5 
5 
5 
5 
5 
5 
S 
5 
5 
5 
5 
5 
5 
5 
5 
S$ 
5 
5 
5 
5 
6 
6 
6 





| AI4 A } 


UIT 01 009 09 01 0 0 0 09 0 09 07 7 0 0 UT 1 UT UT Od Gd dd UT ON 0 0 0 0 0 0 UT UT UT UT UT Os OO 


N14 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


CZQNACO DEQNA FUNCTIONAL TEST 
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PRINTB ( MSG49 ); 

PRINTB ( MSGSO, .XMIT_D_LIST [ 
Bags ( 1602, MSGOO, ERRORSREPORT ); 
END; 


INCR INDEX FROM O TO 5S DO 
XMIT_D_LIST [ . INDEX, WLLEN ] = .XMIT_D_LIST [ 


CHK_XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); 
CHK_RCV_STATUS ( RFLG_STATUS, RWD13_STATUS ); 


INCR INDEX FROM O TO 5S DO 
IF cathe { .INDEX ] NEQU .RCV_BUFFER [ 


N 
BEGIN 
CSR_WORD = GET_BIT € CSR_ALL ); 
PRINTB ( MSG59 ); 
PRINTB ( MSG51 D3 
PRINTB ( MSGSG, .RCV_BUFFER [ .INDEX ], 
— € 1603, MSGOO, ERRORSREPORT ); 
; 


- INDEX + 18, W_LEN ]; 


! 0'140000' , 0'000400' 
! 0'140000', 0'000000' 


- INDEX ] 


-XMIT_BUFFER [ 


E 
ENDSUB; 


. 9 -RBUF LENGTH t -1 ); 
0M 0 T0 1 
i . INDEX; 


INCR INDEX F 9 D0 
> INDEX J = 


XMIT_BUFFER 


BGNSUB ; 
INCR INDEX FROM 0 TO 43 DO 
XMIT_D_LIST [ .INDEX, W_LEN ] = 


XMIT_O_LIST ( 19, WLLEN ] = V; 
XMIT_D_LIST [ 25, W_LEN ] = C; 


SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
PuT_BIT { CSR, LB, INX _COOPBACK ); 
XMIT_AND_RCV_ PACKET ( ); 

CHK _RIXI_STATUS ( ZERO ); 


CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK ); 


XMIT_D_LIST [ 19, W_LEN ] = VE; 
XMIT_D_LIST [ 25, W_LEN ] = E; 


-T016 { .INDEX ]; 


! 0'100220', 0'100220' 


+¢ 
CHECK IF TRANSMIT BUFFER DESCRIPTOR LISTS PROPERLY VOLIDATED 


INCR INDEX FROM O TO 35 DO 


- INDEX J, 


VAX-11 Bliss-16 V4.0-579 
{MAZURCZYK .DEQNA)ZQNA3.BLI;2 


- INDEX, W.LEN J], .T016 [ .INDEX ], .INDEX ); 


INDEX ); 


OL 


SEQ 0183 
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3720 IF .XMIT_O_LIST { .INDEX, W_LEN ] NEQU .T016 [ . INDEX ] 

3721 AND ( .XMIT_D_LIST { . INDEX, W_LEN ] AND #0’140000° ) NEQU #0’ 140000° 

3722 THEN 

3723 BEGIN 

3724 CSR_WORD = GET_BIT ( CSR_ALL ); 

3725 PRINTB ( MSG5S9 ); 

3726 PRINTB ( 


4 
Hy 
$ 
é 
e 
H 
; 
o 
é 
o 
o 
3 
3 
e 
a 
3 
8 
; 
3 
c 
6 
4 
3 
é 
. 
: 3745 
6 
3 
ro 
° 
H 
3 
3 
$ 
S 
Hy 
& 
é 
$ 
6 
a 
8 
3 
e 
o 


MSG49 ); 
PRINTB ( MSGSO, XMIT_O_LIST { . INDEX, W.LEN }, .1016 { . INDEX }, .INDEX ); 
— € 1604, MSGOO, ERRORSREPORT ); 
3 


INCR INDEX FROM 0 TO 5S DO 
XMIT_D_LIST £ . INDEX, W.LEN ] = .XMIT_O_LIST [ .INDEX + 36, W_LEN ]; 


CHK _XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); ! 0'140000', 0'000400' 
CHK_RCV_STATUS ( RFLG_STATUS, RWDi_STATUS ); ! 0'140000°, 0’ 020000° 


INCR INDEX FROM O TO 5 DO 
wil ps acetic { . INDEX ] NEQU .RCV_BUFFER [ .INDEX ] 

BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINT2 © MSGS59 ); 
PRINTB ( MSG51 ); 
PRINTB ( MSGSO, "RCV_BUFFER { .INDEX ], .XMIT_BUFFER [ .INDEX ]), .INDEX ); 

a nna €( 1605, MSGOC, ERRORSREPORT ); 
° 


INCR INDEX FROM 6 TO 9 
y. —_ BUFFER [ > INDEX ] NEQU ZERO 


BEGIN 
CSR_WORD = GET_BIT ( CSR_ALL ); 
PRINTB ( MSG59 ); 


w 
& 
NANI D HDHD DAMA MID DHA HAH MANNS AADAAA VNU AAA OUUIU 


3755 PRINTB ( MSG5S1 ); 
3756 PRINTS ( MSGSO, .RCV_GUFFER [{ .INDEX ], .XMIT_BUFFER [ .INDEX ], .INDEX ); 
3757 ERRDOF ( 1 « MSGOO, ERRORSREPORT ); 
3758 END; 
3759 
3760 INCR INDEX FROM O TO 5 DO 
3761 IF .RCV_BUFFER [ .INDEX + 10 ) NEQU .TARGET_ADR [ .INDEX + 114 ]} 
3762 THEN 
3763 BEGIN 
3764 CSR_WORD = GET_BIT ( CSR_ALL ); 
3765 PRINTB ( MSGS9 ): 
3766 PRINTB ( MSG51 ); 
3767 PRINTB ( MSGS5SO, .RCV_BUFFER [ hn as ], .XMIT_BUFFER ( . INDEX ], .INDEX ); 
bes ERROF ( 1607, MSGOO, ERRORSREPORT d3 
$ 
3770 ENDSUB; 
3771 
3772 ENOTST; 
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CZQNACO NEQNA FUNCTIONAL TEST 


TEST 16 - ODD PACKET TEST 


000016 


000016G 


$716: 


1$: 


2s: 


Cis 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


-SBTTL $116 TEST 16 - ODD PACKET TEST 
JSR R1, $SAVE2] 


014, 

PC ,RESET.DEQNA 

PC PREP .FOR. SETUP 
#1,R1 

R1,-(SP) 

923, -(SP) 
PC,WRT.STATION.ADR 
aor eae’ ae 


1 
R1,016 
1$ 


2 

6202, -(SP) 

PC, XMIT.SETUP.PACKET 
(SP )- 


67 
RO 


es 
06 ,RBUF .LENGTH 
66,RO0 


RO 

RO, XBUF .LENGTH 
640, -(SP) 
PC,CLR.BUFFERS 
PC,.CLR.DESCR 


RO 
— 


RO,05 
3$ 
2 


RO 
TD16(RO),XMIT.D.LISTCRO) 
@2,R0 

RO, 0126 

S$ 

XBUF .LENGTH, (SP ) 
#-60000, -( SP) 
PC,SET.RDESCR.LIST 
REG. ADR,RO 

#1400, 16(RO) 

PC, XMIT.AND.RCV.PACKET 
#1,(SP) 


PC,CHK .RIXI.STATUS 
#1,aI0P, TABLE +16 


(SP) 
PC,CHK .RIXI.STATUS 
@IOP. TABLE +16 


DiS 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEQNA]ZQNA3.BLI;2 


, INDEX1 
INDEX1,¢ 


INVEX1 
INDEX1,¢ 


INDEX 

INDEX, #( INDEX) 

INDEX 

INDEX, ¢ 

INDEX 

*#( INDEX), #C INDEX) 
» INDEX 


INDEX, * 


012716 
011646 
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100220 
000000G 

6$: 
000000G 000000G 


000000G 
037777 
140000 


000000G 
000016 000006 
000006 

000001 


000000G 
000001 


000014 
000021 


7$: 


D115 
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@-77560,(SP) 
(SP),-(SP) 
oe 


~ 
1 
~All lt aataantanss 


XMIT.D.LISTCR1),RO 
037777,RO 
oe 

$ 


REG.ADR,RO 
16(RO),6(SP) 
6(SP),CSR.WORD 
@MSGS9, (SP) 
#1,-(SP) 

SP,RO 


14 

@MSG49, (SP) 
#1,-(SP) 
SP,RO 

18 

R2,(SP) 
TO16(R1),-CSP) 
XMIT.O.LISTCR1),-CSP) 
OMSGSO, -( SP) 


MSGOO 

ERROR SREPORT 
014,SP 

R2 


R2,021 
6$ 

R2 
R2,R1 
R1 
R2,RO 
RO 


SS ean ees sere 


R2,05 

8$ 

#-40000, (SP) 
#400, -(SP) 


PC,CHK,XMIT.STATUS 
(SP) 


PC. CHK. RCV. STATUS 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK . DEQNA JZQNA3.BLI;2 


s INDEX 
INDEX, ¢# 


; 

: *,TMP.LOCATION 
; TMP.LOCATION,« 
: 


3: SP,« 


3: SP,« 
+ INDEX, « 


; INDEX 
3 INDEX o* 


: INDEX 
: INDEX,« 


3 INDEX,« 
1) ; 


; INDEX 
3 INDEX, 


seq 0185 ie 
age 1 
(38) 


3654 


3660 
3661 


3673 
3674 











E15 
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000522 005001 CLR Ri ; INDEX 

000524 126161 0000006 0000006 9$: CMPB 0s XMI'T.BUFFER(R1),RCV.BUFFER(R1) ; #C INDEX), #C INDEX) 
000532 001447 BEQ 10$ 

000534 013700 0000006 MOV REG. ADR,RO F 

000540 016066 000016 000014 MOV 16(RO),14(SP) ; #,TMP.LOCATION 
000546 016637 000014 000000G MOV 14(SP),CSR.WORD ; THP.LOCATION, « 
000554 012716 0000006 MOV oMSGS9, (SP) ; 

600560 012746 000001 MOV 1, -(SP) 

000564 010600 MOV SP RO ; SP,« 

000566 104414 TRAP 9:14 

000570 012716 0000006 MOV oMSG51,(SP) : 

000574 012746 000001 MOV #1,-(SP) 

000600 010600 MOV SP RO ; SP,« 

000602 104414 TRAP 14 

000604 010116 MOV R1,(SP) ; INDEX, 
000606 005046 CLR -(SP) 

000610 116116 0000006 MOVE = XMIT.BUFFER(R1),(SP) ; *CINDEX),« 
000614 005046 CLR -(SP) 

000616 116116 000000G MOVE RCV.BUFFER(R1),(SP) ; *CINDEX),« 
000622 012746 0000006 MOV @MSGSO, -( SP) 

000626 012746 000004 MOV 04, -(SP) 

000632 010600 MOV SP ,RO ; SP,« 

000634 104414 TRAP = (14 

000636 104455 TRAP = sS5 : 

000640 003103 -WORD 3103 

000642 “WORD 

000644 0000006 “WORD ERRORSREPORT 

000646 062706 000014 ADD @14,SP ‘ 

000652 005201 10$: INC Ri ; INDEX 

000654 020127 000005 CMP R1,05 ; INDEX, 
000660 003721 BLE 9$ 

000662 062706 000010 ADD 010,SP : 

000666 104467 TRAP = 67 : 

000670 ROR RO 

000672 103002 BHIS 118 

000674 000137 015412' 4$ 

000700 004737 0000006 11¢: JSR PC,RESET.DEQNA : 

000708 012716 000040 MOV 040,(SP) : 

000710 004737 0000006 JSR PC, CLR. BUFFERS 

000714 012737 000020 0000006 MOV 020, RBUF .LENGTH : 

000722 012700 000020 MOV #20,RO ; 

000726 006200 ASR RO 

000730 005400 NEG RO 

000732 010037 0000006 MOV RO, XBUF .LENGTH 

000736 005000 CLR RO ; INDEX 

000740 110060 0000006 12$:  MOVB RO, XMIT.BUFFERCRO) ; INDEX, #( INDEX) 
000744 005200 INC RO ; INDEX 

000746 020027 000023 CMP RO, 023 ; INDEX, 
000752 003772 BLE 12$ 

000754 104402 13s: TRAP 2 ; 

000756 005000 CLR RO ; INDEX 

000760 016060 000000G 0000006 148: MOV T016(RO), XMIT.D.LISTCRO) ; #C INDEX), «CINDEX) - 
000766 062700 000002 ADD #2,RO ; *, INDEX 


003712 


CZQNACO DEQNA FUNCTIONAL TEST 


TEST 16 
000126 


000014 
000043 


- ODD PACKET TEST 


000046G 
000362G 


000016 
000016 


000046G 
000062G 


000012 
000000G 


15%: 


16%: 


Fi5 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


— 
@-100000 , XMIT.D.LIST+46 
#40000, XMIT.D.LIST+62 
XBUF .LENGTH, (SP) 
#-60000, -(SP) 
PC,SET.RDESCR.LIST 
REG.ADR,RO 

#1400, 16(RO) 

#1000, 16(RO) 


(SP) 
iia 


PC,CHK.CSR.STATUS 
@-60000, XMIT.D.LIST +46 
Snares anenes ee 
R2,R1 


R1 
SS eens 
XMIT.O.LISTCR1),RO 


REG.ADR,RO 
16(RO),12¢SP) 
12(SP),CSR.WORD 
@MSGS9, (SP) 


@MSG49, (SP) 
#1,-(SP) 

SP,RO 

14 

R2,(SP) 
TO16(R1), -CSP) 
XMIT.D.LISTCR1),-CSP) 
@MSGS5O, -( 5P) 
04,-(SP) 

SP,RO 

14 

5S 

3104 

MSGOO 

ERROR $SREPORT 
#14,SP 

R2 

R2,043 

15$ 


. Stu 0187 
VAX-11 Bliss-16 V4.0-579 Page 107 
([MAZURCZYK .DEQNAJZQNA3.BLI;2 (38) 
; INDEX,« 
3 3702 
3 3703 
3 3705 
3 3706 
: | 3707 
H 3708 
3 3710 
Fy 3712 
Hy 3713 
3; INDEX 3719 
3; INDEX,* 3720 
F 3721 
3 3724 
3 *,TMP.LOCATION 
; TMP.LOCATION,« 
3 3725 
3; SP,« 
3 3726 
3 SP,* 
; INDEX,+¢ 3727 
; SP,* 
H 3728 
; 3723 
; INDEX 3719 
; INDEX, * 
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012716 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 16 - ODD PACKET TEST 


17$: 


18$: 


000014 


G15 


S-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


R2 
R2,R1 
R1 
R2,RO0 
RO 


inn oman atin nt anni 


R2,05 
17% 
#-40000, (SP) 


#400, -(SP) 

PC CHK .XMIT.STATUS 
#@-40000, (SP) 
#20000, -( SP) 
PC,CHK.RCV. STATUS 


R1 
a 


REG.ADR,RO 
16(RO),20(SP) 
20(SP),CSR.WORD 
@MSGS9, (SP) 
#1,-(CSP) 

SP,RO 


14 
@MSG51,(SP) 
#1,-C(SP) 


R1,(SP) 

-(SP) 

XMIT .BUFFER(R1),(CSP) 
-(SP) 


RCV.BUFFER(R1),(SP) 
@MSGSO, -( SP) 
04,-(SP) 

SP ,RO 

14 

SS 
3105 


MSGOO 
ERROR $SREPORT 
o4. 


1 

R1,05 

18$ 

6,R1 

RCV.BUFFER(R1) 

21s 

REG.ADR,RO 

16(RO),22(SP) 
R.WORD 


22(SP),.CS 
oMSGS59, (SP) 


VAX-11 Bliss-16 V4.0-579 
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3; INDEX 
3 INDEX, « 


s INDEX,¢ 
R1) ; 

: INDEX 

3 INDEX, @ 


3; INDEX 
s *C INDEX), *C€ INDEX) 


a 

3; * » TMP .LOCATION 
; TMP .LOCATION, # 
‘ 


3; SP, 


s SP, 
INDEX, ¢ 

*C INDEX),* 
3; *CINDEX),« 


3; SP, 


; INDEX 
3; INDEX, 


; *, INDEX. 
s *#C INDEX) 


; 
3 *,TMP.LOCATION 
; TMP.LOCATION,+¢ 
; 


3731 
3734 
3735 
3739 


3742 


3743 


3744 


3745 


3746 


3741 
3738 


3749 
3750 
3753 


3754 


012746 
0600 
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000001 


000000G 
000001 


21s: 
000012G 0001626 228: 


000024 
000000G 


000014 


H1i5 


SEQ 0189 
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#1,-C(SP) 
SP ,RO ; SP, 
14 
omMSG51,(SP) 3 3755 
#1,-CSP) 
° ; SP ,* 
14 
yeh ; INDEX,¢ 3756 
eee s *CINDEX),« 
RCV .BUFFERCR1),(SP) 3; *CINDEX),« 
@MSG ied SP) 
04,-(SP) : 
SP RO e SP,¢ 
14 
55 3 3757 
3106 
MSGOO 
ERROR SREPORT 
$14,SP 3 375e 
R1 3; INDEX 3749 
R1,011 H INDEX, # 
20$ 
R1 ; INDEX 3760 
RCV.BUFFER+12(R1), TARGET.ADR+162(R1) ; 
23 : *C INDEX), ¢( INDEX) 3761 
$ 
REG.ADR,RO : 3764 
16(RO),24(SP) 3; *,TMP.LOCATION 
24(SP),CSR.WORD ; TMP .LOCATION,« 
@MSG59, (SP) ; 3765 
#1,-(SP) 
SP,RO ; SP, 
14 
mMSGS1,(SP) 3 3766 
#1,-(SP) 
SP ,RO ; SP,* 
14 
R1,(SP) ; INDEX,« 3767 
-(SP) 
sey alts nino, s *CINDEX),« 
RCV.BUFFERC(R1),(CSP) 3s *CINDEX),« 
@mMSG5O, -( SP) 
04,-C(SP) 
SP RO ; SP, 
14 
ce : 3768 
3107 
MSGOC 
ERRORSREPORT 
014,SP 3 3763 


T15 


3; Routine Size: 
; Maximum stack 


000000 
000000 
000004 
000006 
000010 
000012 


: Routine Size: 
3: Maximum stack 


004737 
104466 
000 


006 
103773 
000207 


: s77s kk 
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000005 
000010 


016220’ 
000016 


525 words, 


23%: INC R1 


CMP R1,05 
BLE 22% 
#10,SP 
TRAP 7 
ROR RO 
BHIS 243 
JMP 13$ 
24%: ADO #16,SP 
RTS PC 


Routine Base: ABSCODES + 15244 


depth per invocation: 22 words 


015244' 


6 words, 


T16:: 
1$: JSR PC,$T16 
TRAP 
ROR RO 
BLO 1$ 
RTS PC 


Routine Base: ABSCODES + 17276 


depth per invocation: 2 words 


Ti5 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA )ZONA3.BLI;2 


3; INDEX 
7 INDEX,¢ 


— - 

ege 11 
(38) 
3760 


3696 
3769 


3567 


3770 





JIS” 


SEG 0191 
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vo1.0 TEST 17 - STATION ADDRESS TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA )ZQNA3.BLI;2 (39) 

3774 *SBTTL ‘TEST 17 - STATION ADDRESS TEST’ 

3775 fee 

3776 

3777 TEST 17: STATION ADDRESS TEST 

3778 

3779 DESCRIPTION: 

3780 . a 

3781 This test verifies that DEQNA accepts only packets with legitimate 

3782 ‘multicast’ and ‘non-multicast’ addresses and discards those with 

3783 illegitimate ‘multicast’ and ‘non-multicast’ addresses. 

3784 

3785 Station Address RAM is loaded with a set of Terget Addresses and 

3786 Mode bits. Target Addresses in and out of the set are used to 

3787 Joopback packets. If the operator specifies loop on error, the 

3788 program re-executes the code that detected the error until tC is 

3789 entered. 

3790 

3791 Hardware tested: Address Filter Circuitry 

3792 ee 

ths, Set of ‘multicast’ addresses in HEXADECIMAL: 

37¢ 

3795 01-00-00-00-00-00 


AB-AA-AA-AP-AA-AA 
55-55-55-55-55-55 
FF -FF -FF -FF -FF -FF 


3799 Walking 1 

3800 

3801 Processing: 

3802 

3603 BEGIN 

3804 reset device 

3805 select internal loopback mode va 
3806 set mode to Setup 

3807 load Station Address RAM with ‘multicast’ addresses 
3808 REPEAT for each complemented and uncomplemented ‘multicast’ 
3809 address in the set 

3810 load address 

3811 disable receiver 

3812 transmit loopback packet 

3813 enable receiver 

3814 check for expected loopback status 

3815 IF error 

3816 THEN 

3817 print error message if not inhibited 

3818 IF 

3819 call compare_packets 


ENDREPEAT 
ND 


ee ee Ge Ge Ge Ge Ge Gs Ge Ge Gt Ge Ge Ge ve Ge Ge Ge Gt Ge Ge Ge GH Ge Ge Ge Ge Ge Ge GF Gt Ge GF Ge Ge Ge Gs GH Ge Ge Ge Gt Ge GF Ge Gt GS Ge Ge 
Ww 
an 
oo 
on 
Re ed dd 


| an | 





K4i5 


TEMP4 = 14; 
INCR INDEX3 FROM O TO 3 00 
BEGIN 


-. — EQLU 3 


THT EMPS = 6; 
RESET_DEQNA ( ); 
PREP_FOR_SETUP ( ); 
IMR TWOEXA FROM 1 TO .TEMP4 DO 
WALKING_BIT € ZERO, .INDEX4 + ( .INDEX3 «14 )-1, 5 ); 


SEQ 0192 
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3 3823 3 BGNTST; 
3 3824 3 
; 3825 3 tee 
: 3826 3 § RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM TO ALL MULTICAST 
; 3827 3 ! MODE. 
; 3828 3 !-- 
3 3829 3 
: 3830 3 RESET_DEQNA ( ); 
H 3831 3 PREP _FOR_ SETUP é ); 
3 3832 3 INCR INDEX1 FROM 6 TO 19 DO 
; 3833 3 WRT_STATION_ADR ( .INDEX1 - 5, .INDEX1 ); 
: 3834 3 
3 3835 5 BGNSUB ; 
3 3836 5 XMIT_SETUP_PACKET (€ N_MODE ); 
: 3a3s7 3 NDSUB; 
3 3838 3 
: 3839 3 fee : 
: coer : ' NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 
3 1 !-- 
: 3842 3 
3 3843 3 RBUF _LENGTH = 6; 
; pe : XBUF_LLENGTH = - ( .RBUF_LENGTH ft -1 ); 
3 3846 3 INCR INDEX1 FROM 6 TO 19 DO 
: 3847 4 BEGIN 
3 3843 4 WRT_STATION_ADR ( ZERO, .INDEX1 ); 
3 3849 4 
H 3850 6 BGNSUB ; 
8 3851 6 XMIT_ILOOP_PACKET (€ ZERO ); 
3 3852 4 ENDSUB; 
H 3853 4 
Fy 3854 4 INCR INDEX2 FROM O TO 5 DO 
Fy 3655. & BEGIN 
3 3856 5 XMIT_BUFFER [ .INDEX2 ) = ( -.XMIT_BUFFER [ .INDEX2 ] ) - 1; 
3 3857 5 TARGET_ADR { .INDEX2 ] = .XMIT_BUFFER [ .INDEX2 ]; 
3 3858 4 END; 
F 3859 4 
H 3860 6 BGNSUB ; 
H 3861 6 XMIT_ILOOP_PACKET ( ONE ); 
H 3862 : ENDSUB; 
3 3 
H 3 
3 3 
3 a 
3 4 
: 4 
3 4 
3 4 
: 4 
: 4 
F Ss 
3 5 














Li5 





SEQ 0193 
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5 WRT_STATION_ADR (€ .INDEX4, ZERO ); 

4 END; 

4 

6 BGNSUB; 

6 XMIT_SETUP_PACKET ( N_MODE ); 

4 ENDSUB; 

4 

4 RBUF_LENGTH = 6; 

4 XBUF_LENGTH = - ( .RBUF_LENGTH ft -1 ); 

4 

4 INCR INDEX4 FROM 1 TO .TEMP4 DO 

5 BEGIN 

5 WALKING_BIT ( ZERO, .INDEX4 + ( .INDEX3 « 14) - 1, 5 ); 

; WRT_STATION_ADR ( ZERO, ZERO ); 

7 BGNSUB ; 

7 XMIT_ILOOP_PACKET ( ZERO ); 

5 ENDSUB; 

; 3 

4 INCR .NDEX2 FROM O TO 5 DO 

5 BEGIN 

5 XMIT_BUFFER [ .INDEX2 ) = ( -.XMIT_BUFFER [ .INDEX2 ) ) - 1; 

: TARGET_ADR [{ .INDEX2 ] = ..XMIT_BUFFER [ .INDEX2 ); 

7 BGNSUB ; 

7 XMIT_ILOOP_PACKET ( ONE ); 

5 SUB; 

a 8 

4 END; 

4 INCR INDEX2 FROM O T0 5 

: TARGET_ADR [{ .INDEX2 ? = © FERO; 

1 ENDTST; 

.SBTTL $T17 TEST 17 - STATION ADDRESS TEST 

004137 000000G $T17: JSR R1, $SAVE4 : 3772 
004737 0000006 JSR PC,RESET.DEQNA 3 3830 
004737 000000G JSR PC,PREP.FOR.SETUP : 3831 
012701 000006 MOV %6,R1 3; *,INDEX1 3832 
010146 1$: MOV R1,-CSP) 3; INDEX1,« 3833 
162716 000005 sSuB #5,(SP) 
010146 MOV R1,-CSP) 3; INDEX1,« 
004737 000000G JSR PC,WRT.STATION.ADR 
022626 CMP (SP)+,(SP)+ 
005201 INC R1 3; INDEX1 3832 
020127 000023 CMP R1,%23 3; INDEX1,+# 
003765 BLE 1$ 
104402 2s: TRAP 2 : 3833 
012746 000200 MOV #200, -(SP) Fy 3836 
004737 000000G JSR PC, XMIT, SETUP .PACKET 





000306 
000310 


CZQNACO DEQNA FUNCTIONAL TEST 
‘ TEST 17 - STATION ADDRESS TEST 


000000G 
177777 


000000G 
000005 


000001 
000000G 


000023 
000016 000000G 
C20000 000003 


S$: 


6$: 


M15 


S-Jul-1984 14:05:07 
5S-Jul-1984 14:02:06 


(SP )+ 

67 

RO 

2s 

#6,RBUF .LENGTH 
6 ,RO 


RO 

RO 

RO, XBUF .LENGTH 
#6,R2 

-(SP) 

R2, -(SP) 

papi wticpehonminte 


(SP) 
ete: ge ctl litt 


) 
R3, TARGET .ADRCRO) 
RO 
RO,@S 
S$ 


#1,(SP) 
eee ewe 
RO 

6$ 

(SP)+,(SP)+ 

Re 

R2, #23 

3$ 

#16, TEMP4 

R4 

#0, #3 

8$ 

#6, TEMP4 
PC,RESET.DEQNA 
PC,PREP.FOR.SETUP 
TEMP4 ,R2 

R4,R1 

#16,R1 

R3 


10$ 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA]ZQNA3.BLI;2 


*, INDEX1 
INDEX1,* 


; INDEX2 
3; INDEX2,* 


*, *C INDEX2) 
INDEX2 
INDEX2, * 


F 
; INDEX1 
; INDEX1,* 


PF 
; INDEX3 


INDEX3,* 
3; INDEX4 


SEQ 0194 
Page 114 


(40) 


3833 
3836 


3843 
3844 


3846 
3848 


3851 


3854 
3856 


| Ai4 & | 
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9$: 3 
; INDEX4,*« 


PC ,WALKING.BSIT 
R3,(SP) INDEX4 , * 


-(SP) 
PC,WRT.STATION.ADR 


#10,SP 8 
R3 INDEX4 
> ate INDEX4 , « 


2 

#200, -(SP) 

PC, XMIT. SETUP .PACKET 
(SP )+ 

67 

RO 


11$ 
> a et 


RO 

RO, XBUF .LENGTH 
MP4 ,R3 5 

: INDEX4 


INDEX4, * 


(SP) 
PC ,WALKING.BIT 
(SP) 


-(SP) 
cant ettnsimnates tech 


(SP) 
000000G et cmaaeilctantiods 


000010 ; 
INDEX4 
; INDEX4,*+* 


R1 INDEX2 
000000G $ @XMIT.BUFFER,RO F 
R1,R0 INDEX2, * 
012702 177777 #-1,R2 





019 


SEQ 

ZQNA3 CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1964 14:05:07 VAX-11 Bliss-16 V4.0-$579 Pens 116 
vo1.0 TEST 17 - STATION ADDRESS TEST 5-Jul-19864 14:02:06 (MAZURCZYK .DEGNA JZQNA3.6LI;2 ¢€40) 
000530 005003 CLR oF 
000532 1510035 BISB CRO),RS 
000534 160302 SUB R3,R2 
000536 110210 MOVB R2,CRO) 
000540 110261 000000G MOvB R2, TARGET. ADRC(R1) s *,*C INDEX2) 3899 
000544 104402 16$: TRAP 2 
000546 012746 000001 MOV 01,-(SP) 8 3902 
000552 004737 000000G JSR PC, XMIT.ILOOP .PACKET 
000556 005726 TST (SP )-+ : 3699 
000560 104467 TRAP 67 ; 3902 
000562 ROR RO 
000564 103767 BLO 16$ 
000566 005201 INC R1 : INDEX2 3896 
000570 020127 000005 CMP R1,05 3 INDEX2,¢ 
000574 003750 BLE 15$ 
000576 005204 INC R4 3 INDEX3 3866 
000600 020427 000003 CMP R4,03 3s INDEX3,« 
000604 003623 BLE 7$ 
000606 CLR RO 3: INDEX2 3907 
000610 105060 000000G 17%: CLRB TARGET . ADRCRO) s *#C INDEX2) 3908 
000614 005200 INC RO 3 INDEX2 3907 
000616 020027 000005 CMP RO, 05 3 INDEX2,¢ 
000622 003772 BLE 17$ 
000624 000207 RTS PC : 3772 
: Routine Size: 203 words, Routine Base: ABSCODES + 17312 
: Maximum stack depth per invocation: 11 words 

-SBTTL* T17 TEST 17 - STATION ADDRESS TEST 
090000 004737 017312’ Ti7?:: 
000000 1$: JSR PC,$T17 3 3908 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
3; Routine Size: 6 words, Routine Base: ABSCODES + 20140 


; Maximum stack depth per invocation: 2 words 


F} 2) ae 


3912 1 





Ci6 


Se Ge Ge 66 Gs Ge SS G5 Ge Ge Se Gt Ge Ge GH Ge GS Ge Ge GF Ge Ge Ge Gt Ge Ge Ge Ge Gt Ge Ge Gs GO Gs Ge Ge Ge Gs Gs os Ge 6+ Gs G+ Ge Oe Ge 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 18 - ALL MULTICAST STATION ADDRESS TEST S-Jul-1984 14:02:06 [MAZURCZYK .DEQNA)ZQNAZ.BLI;2 


SSBTTL ‘TEST 18 - ALL MULTICAST STATION ADDRESS TEST’ 


foe 


TEST 186: ALL MULTICAST STATION ADDRESS TEST 
DESCRIPTION: 


This test vefifies that DEQNA recognizes ‘all multicast’ addresses of 
the node and discards loopback packets with non-enabled addresses. 

If the operator specifies loop on error, the program re-executes the 
code that detected the error until tC is entered. 


Hardware tested: All Multicast Addressing 
18051 Microprocessor 
Address Filter Circuitry 


Set of ‘all multicast’ addresses: 


DEQNA Physical Addr FF -FF -FF -FF -FF -FF 
AA-00-00-00-00-00 55-55-55-55-55-55 
AA-00-02-AA-AA-AA AA-AA-AA-AR-AA-AA 
AA-00-05-55-55-55 01-00-00-00-00-00 
AA-00-04-FF -FF -FF AB-AA-AA-AA-AA-AA 
AA-00-04-00-00-00 FF -00-01-02-03-04 
AA-00-04-18-81-18 00-F4-FA-44-44-55 


Processing: 


BEGIN 
reset device 
select internal loopback mode 
set mode to Setup 
load Station Address RAM with ‘all multicast’ addresses 
REPEAT for ‘all multicast’ addresses in and out of set 
load ‘all multicast’ address of the packet 
disable receiver 
transmit loopback packet 
enable receiver 
check for expected loopback status 
IF error 
THEN . 
print error message if not inhibited 
ENDIF 
call compare_packets 
—-e 


OS OS OS OS OS OS OS 6S OS OS 6S OS OS OS OS OS OS OS 1S OM OS OS OS OS OS OS 1S 6S OS 1S 1S US 1S 1S IS tS tS tS terete taste rsea+e 
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TEST 18 - ALL MULTICAST STATION ADDRESS TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)ZQNA3.BLI;2 
BGNTST; 


* 
> 


RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
TESTS IN EXTERNAL LOOPBACK MODE. 


aaa .DEQNA ( ); 


INDEX: 
WRT_STATION_ADR ( 14, PHA_INDEX ); 


BGNSUB ; 
XMIT_SETUP_PACKET ( A_MODE ); 
NOSUB; 


NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 


‘ 


RBUF _LENGTH = 6; 
XBUF_LLENGTH = - ( .RBUF_LENGTH ft -1 ); 


gO FROM 6 TO 19 DO 
WRT_STATION_ADR ( ZERO, .INDEX ); 
BGNSUB; 
XMIT_ILOOP_PACKET ( ZERO >; 
ENDSUB; 
INCR INDEX2 FROM O TO 5S DO 
BEGIN 
XMIT_BUFFER [ .INDEX2 ] = ( -.XMIT_BUFFER [ .INDEX2 } ) - l; 
TARGET_ADR [ .INDEX2 ] = .XMIT_BUFFER [ .INDEX2 ]; 
END; 
XMIT_BUFFER [ ZERO ] = .XMIT_BUFFER [ ZERO ] AND #0'177774'; 
TARGET_ADR [{ ZERO ) = .XMIT_BUFFER [ ZERO ); 
BGNSLB; 
XMIT_ILOOP_PACKET ( ONE ); 
ENDSUB; 
END; 


INCR INDEX2 FROM 0 T0 5 D 
TARGET_ADR [ .INDEX2 ] = > ZERO; 


ENDOTST; 


Sik 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 18 - ALL MULTICAST STATION ADDRESS TEST 


- SBTTL 


0000006 
9000006 
000000G 

6: 1s 


2s: 


3$: 


4$: 
000000G 


000000G S$: 
177777 


6$: 


$718: 


E16 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA]ZQNA3.BLI;2 


$718 TEST 18 - ALL MULTICAST STATION ADDRESS TEST 


R1, $SAVE4 

PC ,RESE7T .DEQNA 
PC,PREP.FOR.SETUP 
#1,R1 

Rl, -(SP) 

R1,-(SP) 

PC,WRT. STATION. ADR 
ia lt 


#16,-(SP) 
023, -(SP) 
papers nce nests tae 


#201,(SP) 
ete 
6 


RO 

2s 

6 ,RSUF .LENGTH 
#6 ,RO 


RO 

RO 

RO, XBUF .LENGTH 
46 ,R2 

(SP) 


R2, -(SP) 
- ganna iain mans 


(SP) 
A »XMIT. ILOOP.PACKET 


&S 


RO 
OXMIT.BUFFER,R1 
RO,R1 

@-1,R3 

R4 

(R1),R4 

R4,R3 

R3,(R1) 

RS, TARGET .ADR(RO) 


RO,@S 
> 


$ 
#3,XMIT.BUFFER 
XMIT. BUFFER, TARGET.ADR 


2 
#1,(SP) 
PC,XMIT. ILOOP.PACKET 


CITA 


#, INDEX1 
INDEX1,« 
INDEX1,# 


INDEX1 
INDEX1,¢ 


*«, INDEX 
INDEX, # 


INDE X2 
INDEX2,* 


*#,*( INDEX2) 
INDEX2 
INDEX2,# 


3971 


3974 


3981 
3982 


3984 
3986 


3989 


3992 
3994 


F16 
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v01.0 TEST 18 - ALL MULTICAST STATION ADDRESS TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA JZQNA3.BLI;2 (42) 
000240 104467 TRAP 67 
000242 006000 ROR RO 
000244 103770 BLO 6$ 
000246 005726 TST (SP )-+ : 3985 
000250 005202 INC Re 3; INDEX 3984 
000252 020227 000023 CMP R2,023 3; INDEX,« 
000256 003722 BLE 3$ 
000260 005000 CLR RO : INDEX2 4007 
000262 105060 000000G 7$: CLRB TARGET. ADRC(CRO) s *CINDEX2) 4008 
000266 005200 INC RO 3; IiwWeExXe2 4007 
000270 020027 000005 CMP RO, 95 3: INDEX2,* 
000274 003772 BLE 7$ 
000276 022626 CMP (SP)+,(SP)-+ $ 3910 
000300 000207 RTS PC 
: Routine Size: 97 words, Routine Base: ABSCODE$ + 20154 
; Maximum stack depth per invocation: 10 words 
.SBTTL 118 TEST 18 - ALL MULTICAST STATION ADDRESS TEST 

000000 004737 020154’ T16:: 
000000 1$: JSR PC,$T18 3 4068 
000004 104466 TRAP 66 

006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 

Routine Size: 6 words, Routine Base: ABSCODES + 20456 


Maximum stack depth per invocation: 2 words 


4011 1 
40le 1 





| G16 
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CZQNACO DEQNA FUNCTIONAL TEST 
TEST 19 - RUNT PACKET TEST 


SSBTTL ‘TEST 19 - RUNT PACKET TEST’ 


ee 


TEST 19: 
DESCRIPTION: 


RUNT PACKET TEST 


G16 


S-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEQNA)ZQNA3.BLI;2 


This test verifies that the DEQNA can detect runt packets in FIFO. 
If the operator specifies loop on error, the program re-executes the 


code that detected the error until tC is entered. 


Hardware 


Station 


Processi 


BEG 


END 


Address Filter Circuitry 


tested: EPP 

Address table: 
DEQNA Physi 
AA-00-00-00-00- 
AA-00-02-AA- 
AA-00-05-5 
AA-00-04-FF - 
AA-00-04-00-00- 
AA-00-04-1 

ng: 

IN 


reset device 


select internal loopback mode 


load Station Address RAM with Station Addresses from table 
load packet with valid Station Address 


disable receiver 


transmit loopback packet 


enable receiver 


check for expected loopback status 


IF error 
THEN 


print error message if not inhibited 


ENDIF 


load packet with invalid Station Address 


disable receiver 


transmit loopback packet 


enable receiver 


check for expected loopback status 


IF error 
THEN 


print error message if not inhibited 


ENDIF 


HIA 


Hi6 


SEQ 0202 

ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 122 
v0O1.0 TEST 19 - RUNT PACKET TEST 5-Jul-1984 14:02:06 ([MAZURCZYK .DEQNAJZQNA3.BLI;2 (44) 
: 4063 3 BGNTST; 
: er | ; . 

406 gee 
; 4066 3 * RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM IF EXECUTING 
5 4067 3 * TESTS IN EXTERNAL LOOPBACK MODE. 
3 4068 3 $-- 
: 4069 3 
: 4070 3 RESET_DEQNA ( ); 
: 4071 3 PREP_FOR_SETUP ( ); 
: 4072 3 INCR INDEX1 FROM 6 TO 19 DO 
: 407 3 WRT_STATION_ADR ( .INDEX1 - S, PHA_INDEX ); 
: 4074 3 
F 4075 5 SUB; 
: 4076 5 XMIT_SETUP_PACKET ( N_MODE ); 
3 4077 2 ENDSUB; 
: 40768 3 
: 4079 3 See 
: 4080 3 * NOW LOOPBACK 6 BYTE PACKETS AND CHECK IF THEY ARE RECEIVED PROPERLY 
: 4081 3 $-- 
: 4082 3 
: 4083 3 RBUF _LENGTH = 6; 
: ioes : XBUF_LENGTH = - ( .RBUF_LENGTH f -1 ); 
: 408 
: 40386 3 WRT_STATION_ADR ( ZERO, PHA_INDEX ); 
3 4087 3 
3 4088 5 BGNSUB; 
FY 4089 5 XMIT_ILOOP_PACKET ( ZERO ); 
F3 4090 3 ENOSUB; 
$ 4091 3 
F} 4092 5 BGNSUB; 
s 4093 5 WRT _STATION_ADR ( ZERO, 2 ); 
5 4094 5 
Fy 4095 5 -IOP_TABLE [ CSR ]} = ONE; 
s 4096 5 
5 4097 5 SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
$ 4098 5 .IOP_TABLE [ RLO_ADR ) = RCV_D_LIST; 
8 saan : .IOP_TABLE [ RHI_ADR ] = ZERO; 
4 4101 5 SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
8 4102 5 -IOP_TABLE [ XLO_ADR }) = XMIT_D_LIST; 
8 4103 5 -IOP_TABLE { XHI_ADR ] = ZERO; 
5 4104 5 
A 4105 5 CHK _RIXI_STATUS ( ZERO ); 
5 4106 5 CHK _CSR_STATUS ( CSR_STATUS, CSR_MASK ); ' 0°100220', 0' 100220’ 
r} 4107 5 CHK _¥MIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); § 0° 140000’, 0'000400' 
FH 4108 5 CHK _RCV_STATUS ( RFLG_STATUS, RWD16_STATUS ); ' 0'149000', 0' 044000’ 
3 4109 5 
8 4110 5 .IOP_TABLE [ CSR ) = ZERC; 
| $111 3 ENDSUB; 
Fy 41l2 3 
$ 4113 1 ENOTST; 
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CZQNACO DEQNA FUNCTIONAL TEST 
TEST 19 - RUNT PACKET TEST 


$719: 


1$: 


2s: 


3$: 


4$: 


000016G 


000000G 
000000G 000010G 


-SBTTL $119 TEST 19 - RUNT PACKET TEST 
MOV SP) 


116 


S-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


R1,- 
PC ,RESET.DEQNA 
PC PREP .FOR. SETUP 


) 
PC,WRT.STATION. ADR 
(SP )+,€SP)- 


#200, -( SP) 
(SP )-+ 


2s 
06 ,RBUF .LENGTH 
#6,R0 


RO 

RO 

RO, XBUF .LENGTH 
(SP) 


023, -(SP) 
PC.URT. STATION. ADR 


(SP) 
fee renee 
6 


SP) 
€2,-(SP) 
PC,WRT.STATION.ADR 
#1,9I10P. TABLE +16 

XBUF .LENGTH, (SF ) 
@-60000, -(SP) 
PC,SET.RDESCR.LIST 
@RCV.D0.LIST,@IOP. TABLE +4 
@IOP. TABLE +6 

XBUF .LENGTH, (SP) 
@-60000, -( SP) 
PC,SET.XDESCR.LIST 
@xXMIT.O.LIST,@IOF. TABLE+10 
SIP. TABLE +12 

(SP) 

PC, CHK .RIXI.STATUS 
#-77560,(SP) 


«eK 


VAX-11 Bliss-16 ¥4.0-579 
(MAZURCZYK . DEQNA JZQNA3.BLI;2 


#, INDEX1 
INDEX1,¢ 


3: INDEX1 
3; INDEX1,¢ 


SEG 0203 
Page 123 
(44) 


4010 
4070 
4071 
4072 
4073 


4072 
4073 
4076 
4073 
4076 


4083 
4084 


4086 


4089 


4090 
4093 


4095 
4097 


4098 
4099 
4101 


4102 
4103 
4105 


4106 





J16 


SEQ 0204 
ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 124 
v01.0 TEST 19 - RUNT PACKET TEST 55-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)ZQNA3.BLI;2 (44) 
000254 004737 000000G JSR PC,CHK.CSR. STATUS 
000260 012716 140000 MOV #-40000,(S : 4107 
000264 012746 000400 MOV $400, -( SP) 
000270 004737 000000G JSR PC, CHK. XMIT. STATUS 
000274 012716 140000 MOV @-40000, (SP) ; 4108 
000300 012746 044000 MOV #44000, -( SP) 
000304 004737 000000G JSR PC, CHK .RCV.STATUS 
0003219 005077 000016G CLR @I0P . TABLE +16 : 4110 
000314 062706 000014 ADD 014,SP 3 4090 
000320 104467 TRAP 67 , 3 4110 
000322 006000 ROR RO 
000324 103706 BLO 4$ 
000326 022626 CMP (SP)+,(SP)-+ 3 4010 
000330 012601 MOV (SP)+,R1 
000332 000207 RTS PC 
Maximum stack oepith per invocation: 10 words 
.SBTTL 119 TEST 19 - RUNT PACKET TEST 
000000 004737 020472’ T19:: 
000000 1$: JSR PC,$T19 : 4111 
000004 104466 TRAP 66 


000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 


; Routine Size: 6 words, Routine Base: ABSCODES + 21026 
; Maximum stack depth per invocation: 2 words 


4114 1 
4115 1 


Routine Size: 110 words, Routine Base: ABSCODES + 20472 
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CZQNACO DEQNA FUNCTIONAI. TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-5? 

TEST 20 - FIFO OVERFLOW TEST 5-Jul-1984 14:02:06 (MAZURCZYK . DEQNA )ZQNA3.BLI;2 
*#SBTTL ‘TEST 20 - FIFO OVERFLOW TEST’ 

See 


TEST 20: FIFO CVERFLOW TEST 
DESCRIPTION: 


This test verifies that the Ethernet Protocol Processor can 

detect receive FIFO overflow condition. If the operator specifies 

loop on error, the program re-executes the code that detected the 
error until tC is entered. 


Hardware tested: RCV Status wd 1 - error summary (bit 14), 
FIFO overflow (bit 0), 
Byte FIFO in the EDLC, 
and discard packet (bit 12) 
Processing: 


BEGIN 
reset device 
select loopback mode 
enable receiver ( set CSR bit 0) 
transmit loopback packet 
transmit another loopback packet 
check for expected loopback status 
IF error 
THEN 

print error message if not inhibited 

ENDIF 


reset device 
transmit loopback packet 
transmit a packet 
setup Receive Descriptor List 
enable receiver (set CSR BIT 0) 
check for expected loopbeck status 
IF error 
THEN 
aon error message if not inhibited 


turn of 3 LED’s on the module 
END 





L16 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 20 - FIFO OVERFLOW TEST S-Jul-1984 14:02:06 (MAZURCZYK .DEQNA JZQNA3.BLI;2 


BGNTST; 
"RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM 


RESET_DEQNA ( ); 

PREP_FOR_SETUP ( ); 

INCR INDEX1 FROM 1 TO 14 DO 
WRT_STATION_ADR € .INDEX1, PHA_INDEX ); 


BGNSUS ; 
XMIT_SETUP_PACKET (€ P_MODE ); 
NOSUB ; 


+ 
LOOPBACK 2 6-BYTE PACKETS IN INTERNAL LOOPBACK MODE CHECK IF PACKETS 
WERE RECEIVED PROPERLY, SHOULD TRANSMIT AND RECEIVE PROPERLY. 


RBUF _LENGTH = 6; 
XBUF_LENGTH = - ( .RBUF_LENGTH tf -1 ); 


INCR INDEX FROM 2 TO 3 DO 
BEGIN 
WRT_STATION_ADR ( ZERO, .INDEX ); 


BGNSUB ; 

XMIT_ILOOP_PACKET (¢ ZERO ); 
ENDSUB; 

END; 


Ss, 

: FORCE RECEIVE FIFO OVERFLOW ( RCV STATUS WO 1 - BIT O ) BY TRANSMITTING 

: e ND 6-BYTE PACKET IN INTERNAL LOOPBACK MODE BEFORE RECEIVING FIRST PACKET 
S 


a 
IOP_TABLE { CSR ] = ZERO; 


WRT_STATION_ADR ( ZERO, 2 ); 


SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
-I0P_TABLE [ XLO_ADR } = XMIT D LIST; 
-IOP_TABLE { XHI_ADR ) = ZERO; 


CHK _RIXI_STATUS ( ONE ); 
WRT_STATION_ADR ( ZERO, 3 ); 


SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
-IOP_TABLE [ XLO_ADR ] = XMIT_D_LIST; 
-IOP_TABLE [ XHI_ADR ] = ZERO; 


Se Ge Gt Ge Gs Ge Gs Ge Ge Gs GH GH Ge Gt Gs Ge Ge Gs Ge Ge Gs GF GE Gs Ge GH Be GH Ge Gs Gs Ge Gs Gt GF Ge Ge GH GH Gt Ge GF Gs Ge GH Gs os Ge GF Ge Ge Ge oe 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
be) 
5 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
6 
6 
4 
3 
3 
3 
3 
3 
3 
3 
5 
5 
bo) 
5 
5 
S 
5 
5 
S 
5 
5 
5 
5 
5 
5 
5 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 20 - FIFO OVERFLOW TEST S-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)ZQNA3.BLI;2 


SET_RDESCR_LIST € .XBUF_LENGTH, VE ); 
.IOP_TSBLE [ RLO_ADR ) = RCV_D_LIST; 
-IOP_TABLE [ RHI_LADR = ZERO; 


.TOP_TABLE { CSR ] = ONE; 

CHK _RIXI_STATUS ( ZERO ); 

CHK_CSR_STATUS ( CSR_STATUS, CSR_MASK - : 00220’, 0'100220' 
CHK _XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); : 

CHK_RCV_STATUS ( RFLG_STATUS, RWDIS_STATUS ); 


.IOP_TABLE ({ CSR ] = ZERO; 
ENDSUB; 


RESET_DEQNA ( ); 


TURN_OFF_LED ( N_MODE ); 
TURN_OFF _LED : LED1 ); 
¢ 


< 
°o 
ray 
°o 


PLL = LLs 
fwror fw wrt 
Wht ~ rrr 
bok eT ) ui Muro 


TURN_OFF_LED ( LED2 ); 
TURN_OFF_LED ( LED3 ); 


ENDTST; 


SPHHPHHHLSSLALHDHLLHLASLSLAHLLHLSL 
MOM PM POP PP Po fo Po fo fo No fo fu fufv fu 
WUANMNMNMNMNMRNNRP Re RP Ree 
KPOUDANDNUSWNHRPOU@AIRKYVaW 


4232 
4233 


HF AWNNWWWWWWUUUUUUUUUU UU 


-SBTTL $T20 TEST 20 - FIFO OVERFLOW TEST 
010146 R1, -(SP) ; 
PC,RESET.DEQNA 


*, INDEX1 
INDEX1,+# 


#1,R1 

R1,-(SP) 

#23, -(SP) 
PC,WRT.STATION.ADR 
hates 


1 
Se 3; INDEX1,* 


é 
PC,PREP .FOR. SETUP ; 


INDEX1 


2 
#202, -(SP) 
PC, XMIT.SETUP.PACKET 


2s 
#6, RBUF .LENGTH 
#6,RO0 
RO 
RO 
RO, XBUF .LENGTH 

*, INDEX 


R1,-(SP) INDEX, * 
PC,WRT.STATION. ADR 
000122 





CZQNACO DEQNA FUNCTIONAL TEST 
TEST 20 - FIFO OVERFLOW TEST 


000000G 


000000G 000010G 


000010G 


000001 0000166 


000000G 
000200 


S$: 


Bi 


S-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


(SP) 

+ ith pe eth 
6 

RO 

as 

(SP )+,.(SP)+ 

R1 


R1,03 
3$ 


2 
@IOP. TABLE +16 
(SP) 


@2,-(SP) 
PC,WRT.STATION.ADR 

XBUF .LENGTH, (SP) 

@-60000, -(SP) 

PC,SET. XDESCR.LIST 
@XMIT.O.LIST.@I0P. TABLE +10 
@IOP. TABLE +12 


#1,(SP) 

PC,.CHK .RIXI.STATUS 
(SP) 

o3, -(SP) 


PC,WRT.STATION.ADR 
ef ro gt Saal 


Pc. SET.XDESCR.LIST 

@xMIT.O. LIST, @IOP. TABLE +10 
@I0P. TABLE +12 

XBUF .LENGTH, (SP) 

@-60000, - P) 
PC,SET.RDESCR.LIST 
ORCV.O.LIST, @IOP. TABLE +4 
@I0P . TABLE +6 

$1,@I0P. TABLE +16 

(SP) 


PC,.CHK .RIXI.STATUS 
@-77560, > ) 

(SP), -CSP) 
PC,CHK.CSR.STATUS 
o- 40000, (SP) 


0400, -(SP) 

PC CHK .XMIT.STATUS 
@-40000, (SP) 
#1,-(SP) 

PC, CHK. .RCV.STATUS 
@l0P. TABLE +16 
€22,SP 

67 

RO 


S$ 
PC,RESET.DEQNA 
#200, -(SP) 


: SEQ 0208 

VAX-11 Bliss-16 V4.0-579 Page 128 
{[MAZURCZYK .DEQNA]ZQNA3.BLI;2 (46) 
Fy f 4187 
H 4183 
: INDEX 4182 
3; INDEX,¢ 

3 4169 
3 4197 
3 4199 
F 4201 
H 4202 
Fy 4203 
3 4205 
: 4206 
3 4208 
3 4209 
Fy 4210 
3 4212 
3 4213 
; 4214 
; 4216 
; 4218 
, 4219 
, 4220 
; 4221 
‘ 4223 
; 418° 
; 4223 
; 4226 
F 4228 


Ci 


€ 

ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 . ye 
vo1.0 TEST 20 - FIFO OVERFLOW TEST 5-Jul-1984 14:02:06 (MAZURCZYK .DEQNA)ZQNA3.BLI;2 (46) 
000422 004737 000000G JSR PC, TURN.OFF .LED 
000426 012716 000204 MOV 0204 ,(SP) ; 4229 
000432 004737 000000G JSR PC, TURN.OFF .LED 
000436 012716 0006210 MOV #210,(SP) ; 4230 
000442 004737 000000G JSR PC, TURN.OFF .LED 
000446 012716 000214 MOV 0214,(SP) : 4231 
000452 004737 000000G JSR PC, TURN.OFF .LED 
000456 005726 TST (SP )-« ; 4113 
000460 012601 MOV (SP)+,R1 
000462 000207 RTS PC 
: Routine Size: 154 words, Routine Base: PBSCODE$ + 21042 
; Maximum stack depth per invocation: 11 vords 

-SBTTL T20 TEST 20 - FIFO OVERFLOW TEST 
000000 004737 021042’ T20:: 
000000 1$: JSR PC,$T20 : 4231 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
: Routine Size: 6 words, Routine Base: ABSCODE$ + 21526 
; Maximum stack depth per invocation: 2 words 


$ 4234 1 
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CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
TEST 21 - SANITY TIMER TEST S-Jul-1984 14:02:06 (MAZURCZYK .DEQNA]ZQNA3.BLI;2 
*@SBTTL ‘TEST 21 - SANITY TIMER TEST’ 

See 


TEST 23: SANITY TIMER TEST 


DESCRIPTION: 


This test verifies that the Sanity Timer times out after a pre-set 
( supplied by the operator ) timeout period. The Sanity Timer uses 
DCOK line on the Q-Bus to force the power_faii interrupt of the 
processor which in turn causes the processor to reboot itseif. 


Hardware tested: Sanity Timer Logic 
Processing: 


BEGIN 
reset device 
store Console Terminal and Power_fail interrupt vectors 
location 24 and 60 octal ) 
enable Console Terminal interrupt 
erm for Power_fail interrupt 
inform the operator about the test procedure 
set the Sanity Timer to timeout value supplied by the 
operator 
enable the Sanity Timer 
weit 
Oa tina interrupt occured 
rae ‘SANITY TIMER TIMED OUT AS EXPECTED’ 
L 


force Console Terminal input interrupt by typing “Q” 
print error message if not inhibited 
ENDIF 
disable Sanity Timer 
restore Console Terminal and Power_fail interrupt vectors 
— € location 24 and 60 octal ) 


SEQ 0210 
Page 130 
(47) 


es Ge Ge Gt Ge Gs Ge Ge Ge Ge Gt Ge Ge Ge Ge Ge Ge SH Ge Ge Ge GH Ge Ge Ge Ge GH Ge Ge Gt Gt Gt GF Gi GH Gt Gt Ge GH GH Gt Gt Ge GF Gt GF Gs GH GF Ge GH Gt oF 
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CZQNACO DEQNA FUNCTIONAL TEST 
TEST 21 - SANITY TIMER TEST 


BGNTST; 
IF .SWP_TIMER 
THEN 
BEGIN 


5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 
5-Jul-1984 14:02:06 {[MAZURCZYK .DEQNA )ZQNA3.BL1I;2 


Se 
: "RESET DEQNA AND INITIALIZE ETHERNET STATION ADDRESS RAM 
. 


nail .DEQNA ( ); 


RE 
te 
' 
‘. 


SETVEC 


PF_VEC_LOC, PWR_INT, PRIO7 ); 


( 
SETVEC ( KB_ FVEC LOC. KBD_INT, PRIOS ); 


00 
WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 


BGNSUB ; 


PUT “BIT { CSR, SE, EENABLE }; 
XMIT_SETUP_PACKET ( #0'200' «+ ( 


— -SWP_TOUT_VAL OF 


[ 0.1 }: 
BEGIN 
TEMP1 = 1; 
PRINTB ( MSG32, 
END; 
{2 1): 
BEGIN 
TEMP1 = 4; 
PRINTB ( MSG32, 
END; 
{3 ): 
BEGIN 
TEMP1 = 16; 
PRINTB ( MSG32, 
ND; 
{ 4}: 
BEGIN 
TEMP1 = 1; 
PRINTB ( MSGS55, 
END; 
(5): 


—, 


MP1 = 
PRINTS ¢ “hsGss. 
END; 


. TEMP 1 


. TEMP1 


. TEMP1 


. TEMP1 


. TEMP1 


); 


); 


); 


"seTUP FOR POWER FAIL AND CONSOLE TERMINAL INTERRUPTS 


! POWER FAIL 
! CONSOLE TERMINAL 
! SET PROCESSOR PRI LEVEL 


-SWP_TOUT_VAL * 4 ) ); 


SEQ 021 


1 


Page 131 


(48) 


Fi 


SEQ 0212 


ZQNA3 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 132 
v01.0 TEST 21 - SANITY TIMER TEST 55-Jul-1984 14:02:06 ([MAZURCZYK .DEQNA)ZQNA3.BLI;2 (48) 
; 4327 6 { 6]: 

: 4328 7 BEGIN 

3; 4329 7 TEMP1 = 16; 

3 4330 7 PRINTB ( MSGSS, .TEMP1 ); 

3 4331 6 END; 

: 4332 6 ; Ty Bs 

3 4333 7 BEGIN 

: 4334 7 TEMP1 = 1; 

: 4335 7 PRINTB ( MSGS6, .TEMP1 ); 

: 4336 6 END; 

3 4337 6 TES; 

: 4338 6 

: 4339 6 PRINTB ( MSG57 ); 

: 4340 6 INTERRUPT_FLG = -1; 

: 4341 6 WAIT_FOR_TIMEOUT ( ); 

3 4342 6 

3 4343 6 fee 

: 4344 6 * PUT DEQNA IN NORMAL MODE AND CHECK STATUS 
: 4345 6 $-- 

: 4346 6 

: 4347 6 PUT_BIT [{ CSR, SE, DISABLE ); 

: 4348 6 PREP _FOR_SE TuP ( ); 

3 4349 6 INCR INDEX1 FROM 1.TO 14 DO 

3 ty 6 WRT_STATION_ADR ( O INDEX! « PHA_INDEX ); 
Fy 4351 6 

3 4352 8 BGNSEG; 

3 4353 8 XMIT_SETUP_PACKET ( N_MODE ); 

8 4354 6 ENDSEG; 

3 4355 6 

s 4356 6 CLRVEC ( PF_VEC_LOC ); 

s 4357 6 CLRVEC ( KB_VEC_LOC ); 

$ 4358 6 

3 4359 6 IF .INTERRUPT_FLG 

: 4360 6 THEN 

$ 4361 7 BEGIN 

s 4362 8 PRINTB ( MSG33 ) 

3 4363 7 END 

s 4364 6 ELSE 

F 4365 7 BEGIN 

3 4366 7 CSR_WORD = GET_BIT ( CSR_ALL ); 

3 4367 7 PRINTB ( MSG59 ); 

s 4368 7 PRINTB { MSG34 ); 

$ 4369 7 ERRDF ( 2101, MSGOO, ERRORSREPORT ); 
; 4370 6 END; 

$ 4371 4 ENDSUB; 

Fy 4372 3 END; 

a 4373 3 

3 4374 i ENDTST; 


-SBTTL $T21 TEST 21 - SANITY TIMER TEST 
000000 010146 $T21; MOV R1,-(SP) ; 4233 
000002 005746 TST -(SP) 


032737 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 21 - SANITY TIMER TEST 


000001 000000G 
022542' 
000000G 


G1 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


01,SWP, TIMER 
1$ 


17$ 
PC,RESET.OEQNA 
@PRIO7, -(SP) 
@PWR. INT, -CSP) 
$24, -(SP) 
@3,-(SP) 


37 
@PRIOS, (SP) 
SS ta 


ay 
PC,PREP.FOR.SETUP 
#1,R 

R1,(SP) 

»- (SP) 
PC,.WRT.STATION.ADR 
(SP )+ 
R1 
R1, 016 
es 


2 

REG.ADR,RO 
#2000, 16(RO) 
uP. TOUT. VAL ,RO 


(SP) 
PC, XMIT.SETUP.PACKET 
+ cat cts: 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA)ZQNA3.BLI;2 


3 *, INDEX1 
; INDEX1,+« 


: INDEX1 
3 INDEX1 o* 


SEQ 0213 
Page 133 
(48) 


4276 


4284 
4289 





020127 


CZQNACO DEQNA FUNCTIONAL TEST 


TEST 21 - SANITY TIMER TEST 


000003 
000020 000000G 
000020 
000000G 
000002 


000001 


177777 000000G 
000000G 


000000G 
002000 000016 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 
11$: 


H1 


5-Jul-1984 14:05:07 
5-Jul-1984 14:02:06 


$2,-(SP) 


04,(SP) 
@MSGS5, -CSP) 
#2,-(SP) 
SP,RO 

14 
10$ 
R1,%6 


S$ 

#20, TEMP1 
#20,(SP) 
@MSGSS, -CSP) 
@2,-(SP) 


(SP)+,(SP)-+ 
@MSG5S7,(SP) 
#1,-(SP) 
SP,RO 

14 


@-1, INTERRUPT .FLG 
PC ,WAIT.FOR. TIMEOUT 
REG.ADR,RO 

#2000, 16(RO) 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYKK .DEQNA )ZQNA3.BLI;2 


SP,* 


SP,« 


SP,* 


SP ,* 


SP, 


SP, 


SEQ 0214 


; Routine Size: 


CZQNACO DEQNA FUNCTIONAL TEST 
TEST 21 - SANITY TIMER TEST 


000000G 


000001 
12s: 


13$: 
000200 
000000G 


000024 
000060 
000001 000000G 


0000°0G 
000001 


000000G 14$: 
000016 000020 

000020 000000G 

000000G 


000001 


000000G 
000001 


15$: 


021674' 
000016 16%: 


17$: 


259 words, . Routine Base: 


Ti 


5-Jul-1984 14:05:07 
S-Jul-1984 14:02:06 


PC,PREP.FOR.SETUP 
#1,R1 

R1,(SP) 

#23, -(SP) 
PC,WRT.STATION. ADR 
(SP )+ 


R1 
R1, 416 
12$ 


4 
#200,(SP) 
~ Vtndesioue radiant ss 


36 

960,R0 

36 

#1, INTERRUPT .FLG 


14$ 
@MSG33,(SP) 
#1,-(SP) 


REG.ADR,RO 
16(RO),20(SP) 
20(SP),CSR.WORD 
@MSGS9, (SP) 
#1,-CSP) 

SP,RO 


14 
@MSG34 ,( SP) 
#1,-(SP) 
SP,RO 

14 


SS 

4065 

MSGOO 
ERRORSREPORT 
(SP )+ 
(SP)+,CSP)+ 
67 

RO 

16$ 

3$ 

#16,SP 

(SP )+ 
(SP)+,R1 

PC 


ABSCODE$ + 21542 


, SEQ 0215 
VAX-11 Bl'ss-16 V4.0-579 Page 135 
[MAZURCZYK .DEQNA)ZQNA3.BLI;2 (48) 
3 4348 
; *,INDEX1 4349 
3; INDEX1,+# 4350 
: INDEX1 4349 
; INDEX1 o* 
: 4350 
H 4353 
; 4356 
; 4357 
; 4359 
: 4362 
; SP, 
; 4359 
3 4366 
3 *,TMP.LOCATION 
3 TMP.LOCATION,* 
3 4367 
3 SP, 
F 4368 
; SP, * 
, 4369 
‘ 4365 
, 4294 
: 4370 
, 4278 
; 4233 


Jl 


SEQ 0216 
ZQNA3 ‘ CZQNACO DEQNA FUNCTIONAL TEST : 5-Jul-1984 14:05:07 VAX-11 Bliss-16 V4.0-579 Page 136 
v01.0 TEST 21 - SANITY TIMER TEST 5-Jul-1984 14:02:06 ([MAZURCZYK . DEQNA]ZQNA3. BLI;2 (48) 
; Maximum stack depth per invocation: 14 words 
.SBTTL T21 TEST 21 - SANITY TIMER TEST 

000000 004737 021542’ T2l:: 
000000 1$: JSR PC,$T2l 3 4372 
000004 104466 TRAP 66 

006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ABSCODE$ + 22550 
; Maximum stack depth per invocation: 2 words 
: 4375 1 
; 4376 1 END 
3 4377 0O ELUDOM 
; OTS external references 


-GLOBL SSAVES, $SAVE3, $SAVE2 


PSECT SUMMARY 


Psect Name Words Attributes 
ABSCODE$ 4794 RO, § » Uehe REL. COM 


Library Statistics 


cececcee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


DISK $USER2: [MAZURCZYK . DEQNA JQNALIB.L16;2 


223 142 63 14 00:00.1 


COMMAND QUALIFIERS 
BLISS/PDP11 ZQNA3.BLI/LIST=ZQNA3.LIS/OBJECT =ZQNA3.0BJ/SOURCE =PAGE : 53 


K4 
CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:05:07  VAX-11 Bliss-16 V4.0-579 vigg meg 
TEST 21 - SANITY TIMER TEST . age 137 


4794 code + 0 data words 
02:12.1 
: 08:39.0 
iines/CPU Min: 1988 
Lexemes/CPU-Min: 23670 
Memory Used: 437 pages 
Compilation Complete 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA )ZQNA4 .BLI;2 


MODULE ZQNA4 (TITTLE "CZGNACO DEQNA FUNCTIONAL TEST’ 
ADDRESSING .MODEC ABSOLUTE ) 
SSBTTL ‘GLOBAL ROUTINE DECLARATION MODULE’ 


BEGIN 

LIBRARY ‘QNALIB'; ! QNALIB LIBRARY 

REQUIRE ‘BLSMAC.REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 
! <BLF /NOF ORMAT > 


SEQ 0218 
Page 


1 
(1) 


CN et ed 


CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE DECLARATION MODULE 


PSECT 
CODE = ACSCODES; 


FORWARD ROUTINE 


M1 


55-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


D_SIZE, WORD ) FIELD € DL_FIELDS ), 
O_SIZE, WORD ) FIELD ( DL_FIELDS ), 
wir ee he FIELD ( DL_FIELDS ), 


XMIT_AND_RCV_PACKET : NOVALUE; 

See 

: EXTERNAL DATA USED BY THIS MODULE 

Pea 

EXTERNAL 

fee 

8 COMMUNICATION AREA DECLARATIONS 

Gan 
RCV_O_LIST : BLOCK [ 
XMIT_D_LIST : BLOCK [ 
DESCR_LIST : BLOCK [ 
RCV_BUFFER : VECTOR ( B_SIZE, BYTE }, 
XMIT_BUFFER : VECTOR ( B_SIZE, BYTE }, 
DATA_BUFFER : VECTOR { BUF_SIZE, BYTE J, 
SETUP _BUFFER : VECTOR { SETUB_SIZE, WORD J, 
IOP _TABLE : VECTOR ( 8, WORD J), 
BD_PROM_DESCR : VECTOR [ BD_O_SIZE, WORD }, 
STATION_ADR : VECTOR { 4, WORD J, 
TARGET_ADR : VECTOR { T_SIZE, BYTE }, 
PHYS_ADR : VECTOR ( 22, BYTE }, 


HARDWARE AND SOFTWARE P-TABLE STORAGE DECLARATIONS 


HWP_TABLE : REF BLOCK [ HWP_SIZE, WORD ] FIELD ( HWP_FIELDS ), 
SWP_TABLE : REF BLOCK [ SWP_SIZE, WORD ) FIELD ( SWP_FIELDS ), 


REF REG_STR FIELD ( IOP_FIELDS ), 


GET_ADR : REF ADR_STR FIELD ( IOP_FIELDS ), 


REF REG_STR FIELD ( IOP_FIELDS ), 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK .DEQNA)]ZQNA4 .BLI;2 


SEQ 0219 
Page 


(2) 


SEQ 0220 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 3 
GLOBAL ROUTINE DECLARATION MODULE S-Jul-1984 14:02:25 ([MAZURCZYK .DEQNAJZQNA4 .SLI;2 (3) 


MISCELLANEOUS DATA DECLARATIONS 


XBUF __LENGTH, RBUF __LENGTH, INTERRUPT_FLG, COUNTER, 
SWP_BLOCK_MEM, SWP_TOUT_VAL, SWP_ILOOP, 

UP_COUNTER, DOWN_COUNTER, CHECKSUM, 

ERR_COUNT, ERR_FLAG, CSR_WORD, 

PRIO1, PRIO2, PRIO3, I04, 

PRIOS, PRIO6, PRIO7, DEQNA_NO : WORD, 


TEMPORARY STORAGE DATA DECLARATIONS 


Pe, P3, 

TMP_REG_DATA,  TEMP1, 

TEMP4, TEMPS, 

TEMPS, TEMPS, TADR1, 


TBYTE1, TBYTE2, TBYTES, TBYTE4 


DIAGNOSTIC ERROR MESSAGES DECLARED EXTERNALLY 


MSGO3, MSGO6, 
MSG16, 
MSG26, 
MSG36, 
MSG46, 
MSGS6, 
MSG62, MSG63, MSG66, SG6 SG69, MSG70; 


ne dk de dd de eet 





SEQ 0221 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 4 
GLOBAL ROUTINE - ERRORSREPORT ( ) S-Jul-1984 14:02:25 {[MAZURCZYK . DEQNA )ZQNA4 .BLI;2 (4) 


SSBTTL ‘GLOBAL ROUTINE - ERRORSREPORT ( )' 


* 
* 


GLOBAL ROUTINE : ERROR SREPORT 
DESCRIPTION: 


This routine reports errors to the operator 


SSBTTL ‘GLOBAL ROUTINE - ERRORSREPORT ( )’ 
BGNMSG (ERRORSREPORT ); 


oe ee ee pe ee he he be pe pe he pe 


ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST 
te cont 


RCV.DO.LIST, XMIT.D.LIST, DESCR.LIST 
RCV.BUFFER, XMIT.BUFFER, DATA.BUFFER 
SETUP. BUFFER, I0P. TABLE, BD .PROM.DESCR 
STATION.ADR, TARGET.ADR, PHYS.ADR 
HWP. TABLE, SP. TABLE, REG. ADR 

GET.ADR, IOP.DATA, XBUF .LENGTH 

RBUF .LENGTH, INTERRUPT.FLG, COUNTER 


PRIO2, PRIOS, PRIOS, PRIOS, PRIO6 
PRIO7, DEQNA.NO, P1, P2, P3, Pa 
TMP.IOP.ADR, TMP.REG.DATA, TEMP1 
TEMP2, TEMPS, TEMP4, TEMPS. TEMP6 
TEMP7, TEMPS, TEMP9, TADR1, TADR2 
TBYTE1, TBYTE2, TBYTES, sevens 
MSGOO, MSGO1 2, MSGO3 


MSG67, 





000004 
000006 


3: Routine Size: 
3 Maximum stack 


ee ee Ge Gs Gt GF Gt Ge Ge Ge Ge GF 
~ 
uw 
wo 
@ 


004737 
104423 
000207 


Mri frit 


012746 
012746 
0600 


013716 


CZQNACO DEQNA FUNCTIONAL TEST 


GLOBAL ROUTINE - ERRORSREPORT ( ) 


000000V 


4 words, 
depth per invocation: 2 words 


PRINTB 
PRINTE 


ENOMSG; 


000000G 
000001 
000000G 
000000G 
000003 


— WORD AND #0'133777' 
HWP _TABLE [ ADDR } ); 


STWO1l ] AND XWD1_MASK, 
STWO2 ] AND XWD2_MASK, 


. SBTTL 
-PSECT 
ERRORSREPORT:: 
JSR 
TRAP 
RTS 
Routine Base: ACSCODES 
8 
-XMIT_O_LIST ({ FLGWD J, 
.XMIT_O_LIST [{ DBITS }, 
.XMIT_D_LIST [ LOADR }, 
.XMIT_D_LIST : TWOL ), 
( 


. SBTTL 
MSERRORSREPORT : 


Ce 


5-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


ERROR$REPORT GLOBAL ROUTINE - ERRORSREPORT ( ) 


ACSCODE$, RO 


PC ,MSERRORSREPORT 

23 

PC 

+ 0000 

RCV_O_LIST [ FLGWD J 

-RCV_O_LIST ( OBITS } 

-RCV_D_LIST [ LOACR } 

-RCV_O_LIST ([ TWOL J) 
-RCV_O_L 
»-RCV_O_L 


3 


hen de ad 


; 
: 
é 
; 
ST 
sT 


{ STWD1 ) AND RWD2_MASK ); 
{ STwD2 }] AND RLL_MASK ); 


MSERRORSREPORT GLOBAL ROUTINE - ERRORSREPORT ( ) 


@MSGO3, -( SP) 
1, -(SP) 


14 
RCV.O0.LIST, CSP) 
XMIT.DO.LIST,-(SP) 
@MSG04, - ) 
@3,-CSP) 

SP,RO 


14 
RCV.D.LIST+2,(SP) 
XMIT.O.LIST+2,-(SP) 
peat + Eat 


14 
RCV.D.LIST+4,(SP) 
XMIT.D.LIST+4, -(SP) 
@MSGO06, -( SP) 
03,-(SP) 


14 
RCV.D0.LIST+6,(SP) 


: SP,« 


; SP, 


° SP,¢« 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA]ZQNA4.BLI;2 


SEQ 0222 
P 


(4) 


1592 


1594 


1595 


1596 


1597 


1598 


SEQ 0223 
CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 6 
GLOBAL ROUTINE - ERRORSREPORT ( ) S-Jul-1984 14:02:25 ([MAZURCZYK .DEQNA)ZQNA4 .BLI;2 (4) 


013746 XMIT.O.LIST+6, -CSP) 
000000G OMSGO7, -(SP) 
63, -(SP) 
SP ,RO 


14 
RCV.0.LIST+10,(SP) 
#360,(SP) 

XMIT.O. 1S7+10,-CSP) 
#20017, (SP) 
@MSG0B, -( SP) 

$3, -(SP) 


14 


(SP) 
RCV.D0.LIST+12,(SP) 
XMIT.D.LIST+12, -(SP) 
#140000, (SP) 
@MSGO9, -C SP) 

03, -(SP) 

SP ,RO 


14 

CSR.WORD, (SP) 
#44000, (SP) 
@MSG10,-(SP) 
62,-(SP) 
SP,RO 

4 


1 

@HWP . TABLE , (SP, 

#2,-(SP) 

SP,RO 

14 

000060 #60,SP 
PC 


Routine Size: 94 words, Routine Base: ACS$CODE$ + 0010 
Maximum stack depth per invocation: 26 words 


1605 1 
1606 1 








Ee 


SEQ 0224 

ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 ee 7 
v01.0 GLOBAL ROUTINE - ELS$REPORT ( ) S-Jul-1984 14:02:25 (MAZURCZYK .DEQNA]ZQNA4 .BLI;2 (5) 
3 1607 1 *SBTTL ‘GLOBAL ROUTINE - E1$REPORT ( )' 
: 1608 1 
; 1609 1 See 
: 1610 1 : 
3 1611 1 * GLOBAL ROUTINE : EL SREPORT 
3 1612 1 : 
3 1613 1 ! DESCRIPTION: 
g 1614 1 Hy 
; 1615 1 8 This routine reports errors to the operator 
3 1616 1 : 
3 1617 1 $-- 
3 1618 1 
; — : @SBTTL ‘GLOBAL ROUTINE - E1$REPORT ( )' 
: 162 
3 1621 1 BGNMSG ( E1$REPORT ); 

-SBTTL E1$REPORT GLOBAL ROUTINE - E1$REPORT ( ) 
000000 004737 O00000V E1SREPORT:: 

JSR PC .MSE1$REPORT 3 1621 
000004 104423 TRAP 23 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: ACS$CODE$ + 0304 
; Maximum stack depth per invocation: 2 words 
8 1622 2 
3 1623 2 TEMP1 = 1; 
F} 1624 2 
8 1625 1 ENDMSG; 

-SBTTL MSELSREPORT GLOBAL ROUTINE - E1S$REPORT ( ) 
000000 012737 000001 000000G MSE1SREPORT: 

MOV #1, TEMP1 ; 1623 
000006 000207 RTS PC : 1621 


3: Routine Size: 4 words, Routine Base: ACSCODE$ + 0314 
: Maximum stack depth per invocation: 0 words 


; 1626 1 
s 1627 1 


a eed td 


Fe 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - RESET_DEQNA ( ) S-Jul-1984 14:02:25 [MAZURCZYK . DEQNA JZQNA4 .BLI;2 


SSBTTL ‘GLOBAL ROUTINE - RESET_DEQNA ( )' 
GLOBAL ROUTINE RESET_DEQNA : NOVALUE = 


* 
= 


GLOBAL ROUTINE : RESET _DEQNA 
DESCRIPTION: 


This routine verifies that DEQNA can be reset by setting bit 1 in the 
CSR register. After the reset, CSR is checked for nominal 
status. 


Hardware tested: Q-Bus DMA Interface 
Processing: 


BEGIN 
set Software Reset (SR) bit in CSR and check for 
expected CSR status 
IF error 
THEN 
hee error message if not inhibited 


clear SR bit in CSR and check for expected CSR status 
IF error 
THEN 
aw error message if not inhibited 
END 


INPUT PARAMETERS: 


SEQ 0225 
Page 


8 
(6) 


SEQ 0226 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Nae 9 
GLOBAL ROUTINE - RESET_DEQNA ( ) S-Jul-1984 14:02:25 ([MAZURCZYK .DEQNA)ZQNA4 .BLI;2 (7) 


* 
+ 


RESET THE DEVICE AND CHECK CONTENTS OF CSR FOR NOMINAL STATUS 


BEGIN 


PUT_BIT ( CSR, ALL_BITS, ZERO ); 
PUT_BIT ¢ CSR, SR, SET_ IT ); 


DELAY ( TIME6_LIMIT ); 
TEMP1 = GET_BIT [ CSR_ALL ] AND CSR2_MASK; 


IF .TEMP1 NEQU CSR1_STATUS 
THEN 


BEGIN 

ERR_FLAG = ONE; 

CSR_WORD = GET_BIT [ CSR_ALL }; 

PRINTB ( MSG59 ); 

PRINTB ( MSG31 D3 

PRINTB ( MSG30, .GET_ADR [ CSR_ALL ], .TEMP1, CSR2_STATUS ); 
TS peed € 0001, MSGOO, E1SREPORT ); 


* 
a 


CLEAR SOFTWARE RESET BIT IN THE CSR AND CHECK FOR EXPECTED STATUS 


PUT_BIT ( CSR, SR, CLR_IT ); 

DELAY ( TIME6_LIMIT ); 

TEMP2 = GET_BIT [ CSR_ALL ]} AND CSR2_MASK; 
eg NEQU CSR2_STATUS 


HE 
BEGIN 
ERR_FLAG = ONE; 
-WORD = GET_ at { CSR_ALL ]; 


1); 
PRINTB ( MSG30, GET. ADR { CSR_ALL }, .TEMP1, CSR2_STATUS ); 
ERRDF ( 0002, MSGOO, E1$REPORT ); 


1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
2 
2 
1 


Se Ge Ge Ge Gt G6 Gs Ge Ge Ge Ge Gt Gt Ge Ge GS Ge GH GF GS Ge GF Ge Ge Ge GF GH GH Gt GF Gs GF GF 
° 


-GLOBL LSDLY 


-SBTTL RESET.DEQNA GLOBAL ROUTINE - RESET_DEQNA ( ) 





He 


5-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA JZQNA4 .BLI;2 


SEQ 0227 
CZQNACO DEQNA FUNCTIONAL TEST p 
GLOBAL ROUTINE - RESET_DEQNA ( ) 


000000G 
000016 
000000G 
000016 
000002 
000001 
000000G 


RESET .DEQNA: : 
JSR 


R1, $SAVE2 
#16,SP 
REG.ADR,RO 
#16,R2 
RO,R2 

(R2) 
#2,(R2) 


1$ 

CR2),CSP) 
(SP), TEMP1 
#10000, TEMP1 
TEMP1, @62 

S$ 
#1,ERR.FLAG 
(SP),2CSP) 
(SP),CSR.WORD 
#1,-(SP) 
SP,RO 

14 
#MSG31,(SP) 
#1. -(SP) 

SP RO 

14 

#60,(SP) 
TEMP1,-CSP) 
GET.ADR,14(SP) 
#16,14(SP) 
14(SP),-(SP) 
64, -(SP) 

SP ,RO 

14 

55 


1 

MSGOO 
E1$REPORT 
#16,SP 
REG.ADR,RO 
#2,16(RO) 
#1,R2 

9$ 
LSOLY,R1 
8$ 

14(SP) 


*,$$TMP2 
*,$$TMP1 
$$TMP 
$sTMP1,« 
$$TMP2 


*, TMP .LOCATION 


$ 
; *,TMP.LOCATION 


SP,* 


SP, 


3; *,TMP.LOCATION 


*, TMP LOCATION 
TMP .LOCATION,# 


SP,* 


*,$$TMP2 
*,$$TMP1 
$$TMP 





SEQ 0228 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 11 
GLOBAL ROUTINE - RESET_DEQNA ( ) S-Jul-1984 14:02:25 ([MAZURCZYK .DEQNA JZQNA4 .BLI;2 


77103 SOB R1,7$ $$TMP1,« 
00530 R2 $$TMP2 


6$ 
16(RO),6(SP) *, TMP .LOCATION 
6(SP), TEMP2 TMP .LOCATION, « 


10$ 

#1,ERR.FLAG 

6(SP),10(SP ) *, TMP .LOCATION 
10(SP),CSR.WORD TMP .LOCATION, « 
@MSG59, -( SP) 

41, -(SP) 

SP,RO SP,# 


14 
#MSG31.(SP) 
SP,* 


*, TMP .LOCATION 
*, TMP.LOCATION 
22(SP),-(SP) TMP .LOCATION, « 
04, -(SP) 
SP,RO SP,« 
14 
55 
2 
MSGOO 
E1$REPORT 
000016 #16,SP 
000016 10$: + cat 


Routine Size: 153 words, Routine Base: ACS$CODE$ + 0324 
Maximum stack depth per invocation: 19 words 


i719 1 
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026161 


Je 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 
GLOBAL ROUTINE - VER_DESCR_STATUS (¢ ) S-Jul-1984 14:02:25 


SSBTTL ‘GLOBAL ROUTINE - VER_DESCR_STATUS ( )’ 
GLOBAL ROUTINE VER_DESCR_STATUS :. NOVALUE = 


+ 
aa 


GLOBAL ROUTINE : VER_DESCR_STATUS 
DESCRIPTION: 


descriptor. 
INPUT PARAMETERS: 
TEST_NO - test number in which error occurred. 


BEGIN 
INCR INDEX FROM O TO BD_D_SIZE - 1 DO 
BEGIN 


TEMP1 = .DESCR_LIST ( .INDEX, W_LEN J; 
TEMP2 = .DESCR_LIST [ .INDEX, W_LEN ] AND RFLG_M 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK . DEQNA)JZQNA4 .BLI;2 


This routine compares expected receive descriptor to actuel receive 


ASK ; 
IF am —e NEQU RFLG_MASK ) AND ( .TEMP1 NEQU .80_ “PROM -DESCR [ .INDEX } ) 


BEGIN 
‘CSR_WORD = GET_BIT ({ CSR_ALL }; 
PRINTB ( MSG59 ); 
PRINTB ( MSG48 ); 
PRINTB ( MSGSO, .TEMP1, .BD_PROM_DESCR [ .INDEX ] , .INDEX ); 
ERROF ( 0003, MSGOO, ERRORSREPORT ); 


END; 
END; 
END; 
.SBTTL VER.DESCR.STATUS GLOBAL ROUTINE 
000000G VER.DESCR. STATUS: : 
JSR a $SAVE2 
TST -(SP) 
CLR Re 
1$: MOV R2,R1 
ASL R1 
000000G 000000G MOV DESCR.LISTCR1), TEMP1 
000000G 000000G MOV DESCR.LISTC(R1), TEMP2 
037777 000000G BIC 037777, TEMP2 
009000G 140000 CMP TEMP2 , #-40000 


2s 
000000G 000000G CMP DESCR.LISTCR1),80.PROM.DESCR(R1 ) 


- VER_DESCR_STATUS ( ) 


; INDEX 
; INDEX,* 


SEQ 0229 
Page 12 
(8) 


1713 
1733 
1735 
1736 
1737 


Ke 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - VER_DESCR_STATUS ( ) 5-Jul-1984 14:02:25 ([MAZURCZYK . DEQNAJZQNA4 .BLI;2 


SEQ 0230 
P 


es 

REG.ADR,RO 

16(RO), (SP) *, TMP .LOCATION 
CSP),CSR.WORD TMP .LOCATION, * 
@MSGS59, -( SP) 
#1, -(SP) 

SP ,RO SP,* 
14 

@MSG48 , (SP) 

#1, -(SP) 

— SP,* 


R2,(SP) INDEX, « 
BD.PROM.DESCR(R1), -CSP) 
TEMP1,-(CSP) 
@MSGSO, -( SP) 

#4,-(SP) 

14 

55 

3 

MSGOO 

ERROR SREPORT 

#16,SP 

R INDEX 


2 
R2,017 INDEX, * 
1$ 


(SP )+ 
PC 


Routine Size: 64 words, Routine Base: ACSCODE$ + 1006 
Maximum stack depth per invocation: 13 words 


1749 1 





Routine Size: 
Maximum stack 


1773 
1774 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - CLR_DESCR ( ) S-Jul-1984 14:02:25 (MAZURCZYK .DEQNA)ZQNA4 .BLI;2 


SSBTTL ‘GLOBAL ROUTINE - CLR_DESCR ( )' 
GLOBAL ROUTINE CLR_DESCR : NOVALUE = 


+ 
ao 


GLOBAL ROUTINE : CLR_DESCR 
DESCRIPTION: 


This routine initializes transmit and receive descriptor lists to 0. 


term rata@raratare 


BEGIN 
INCR INDEX FROM O TO D_SIZE - 1 DO 
BEGIN 


XMIT_D_LIST [ .INDEX, W_LEN ] = 0; 
RCV_D_LIST [ .INDEX, W_LEN ] = 0; 


END; 
-SBTTL CLR.DESCR GLOBAL ROUTINE - CLR_DESCR ( ) 
CLR.DESCR:: 

CLR RO 3; INDEX 
000000G P 1$: CLR XMIT.D.LISTCRO) s *#C INDEX) 
000000G CLR RCV.D.LISTCRO) s *#C INDEX) 
000002 ADD #2,RO ; *, INDEX 
000176 CMP RO, #176 ; INDEX,« 

BLE 1$ 

RTS PC 3 

11 words, Routine Base: ACS$CODE$ + 1206 


depth per invocation: 0O words 


SEQ 023 
Page 


1 
14 
(9) 


SE 
ZGNA4 CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 | VAX-11 Bliss-16 V4.0-579 phony 15 
v01.0 GLOBAL ROUTINE - CLR_BUFFERS ( P1 ) 5-Jul-1984 14:02:25 § [MAZURCZYK.DEQNAJZQNA4.BLI;2 (10) 
SSBTTL ‘GLOBAL ROUTINE - CLR_BUFFERS ( Pi )' 


GLOBAL ROUTINE CLR_BUFFERS ( P1 ) : NOVALUE = 


to 
+ 


GLOBAL ROUTINE : CLR_BUFFERS 
DESCRIPTION: 

This routine initializes transmit and receive buffers to 0. 
INPUT PARAMETERS: 

Pl - number of bytes to clear. 


~ 
3 
DID ON 8 ID D0 ee ee ee 0 ee ee pe pe 


BEGIN 
INCR INDEX FROM O TO .P1 - 1 DO 
BEGIN 
RCV_BUFFER [ .INDEX } = 0; 
XMIT_BUFFER [ .INDEX ] = 0; 
END; 
END; 


-SBTTL CLR.BUFFERS GLOBAL ROUTINE - CLR_BUFFERS ( Pl ) 
000000 005000 CLR.BUFFERS: : 
CLR RO ; INDEX 1796 


*( INDEX) 1798 
*( INDEX) 1799 


2s 
000004 105060 000000G 1$: CLRB RCV .BUFFERCRO) 
000010 105060 000000G CLRB XMIT .BUFFERCRO) 
RO INDEX 1796 


000016 020066 000002 2s: CMP R020 SP) INDEX ,P1 
000024 000207 RTS PC : 1777 


: Routine Size: 11 words, Routine Base: ACSCODE$ + 1234 
; Maximum stack depth per invocation: 0 words 


1803 1 
1804 1 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 ) S-Jul-1984 14:02:25 ([MAZURCZYK .DEQNA)ZQNA4 .BLI;2 


SSBTTL ‘GLOBAL ROUTINE - CHK_RIXI_STATUS ( Pl )' 
GLOBAL ROUTINE CHK_RIXI_STATUS ( P1 ) : NOVALUE = 


> 
+ 


GLOBAL ROUTINE : CHK_RIXI_STATUS 
DESCRIPTION: 
This routine verifies that XI ( bit 7 ) and RI ( bit 15 ) 
of the CSR status word are set to 1 shortly after transmission of a 
loopbeck packet is complete. If either bit isn't set, an error 
message is printed. 
INPUT PARAMETERS: 
P1 - 0: check XI and RI 
- 1: ckeck XI 
- 2: check RI 


TEST_NO - test number in which error occurred. 


BEGIN 


++ 
CHECK TRANSMIT INTERRUPT REQUEST BIT ( XI - BIT 7 ) TO VERIFY THAT DEQNA 
ACTUALLY COMPLETED TRANSMISSION OF A LOOPBACK PACKET. 
IF ( .P1 EQLUO ) ORC .P1 EQLU 1 ) 
THEN 


INCR INDEX FROM O TO TIME2_ LIMIT DO 
\—— { CSR,\XI ] EQLU ONE 


TE 
EXITLOOP; 
END 


ELSE 
——— EQLU TIMES _LIMIT 
BEGIN 


ERR_FLAG = ONE; 
CSR_WORD = GET_ — { CSR_ALL ]; 


6 ); 
DF € 0004, MSGOO, ERRORSREPORT ); 


SEQ 0233 


Page 


(11) 
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012746 


CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 ) 


B3 


5-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA)ZQNA4 .BLI;2 


! CHECK RECEIVE INTERRUPT REQUEST BIT ( RI - BIT 15 ) TO VERIFY THAT DEQNA 
: tahitian RECEIVED TRANSMITTED LOOPBACK PACKET. 
e. 


IF ( .P1 EQLU O ) OR C 
THEN 


INCR INDEX FROM O TO TIME2_LIMIT DO 
re { CSR, RI ) U ONE 
HEN 


BEGIN 
TEMP2 = 
EXITLOOP; 

NO 


E 
ELSE 


. INDEX; 


-P1 EQLU 2 ) 


IF . INDEX EQLU TIME2_LIMIT 
THEN 


BEGIN 
ERR_FLAG = ONE; 


CSR_WORD = GET_BIT [ CSR_ALL }; 


PRINTB ( MSGS9 ); 
PRINTB 
PRINTB 


); 
ERROF ( 0005, MSGOO, ERROR$SREPORT ); 


END; 


-SBTTL CHK.RIXI.STATUS GLOBAL ROUTINE - CHK_RIXI_STATUS ( Pl ) 


CHK .RIXI.STATUS:: 


4$: 


R1, $SAVE3 
@10,SP 
= sien 


R 

REG. ADR,RO 
16(RO), (SP) 
(SP) 


As 

R1, TEMP1 

6$ 

R1, 92000 

S$ 

@1,ERR.FLAG 
16(RO),2¢SP) 
2(SP),CSR.WORD 


@MSGS9, -( SP) 
1,-(SP) 


Pl,* 


INDEX 


*«, TMP LOCATION 
TMP .LOCATION 


INDEX, # 
INDEX, 


«, TMP LOCATION 
TMP .LOCATION,¢ 


SEQ 0234 
Pp 17 
(11) 


1807 
1836 


1838 
1839 


1842 
1841 
1846 


1849 
1850 


1851 


2 


SEQ 0 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51  VAX-11 Bliss-16 v4.0-579 "een 
GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 ) 5-Jul-1984 14:02:25  [MAZURCZYK.DEQNA]JZGNA4.BLI;2 (11) 


SP ,RO ; SP,6 


14 

oMSG29, (SP) : sens 
#1, -(SP) 

SP;RO : SP,s 


14 

@MSG26, (SP) : 1853 
_ #1,-CSP) 

SP,RO SP,* 

i4 

55 

4 


MSGOO 
ERROR $SREPORT 


INDEX 
REG.ADR,RO 
ata «, TMP. .LOCATION 
R1, TEMP2 INDEX, ¢ 
118 


> aaa INDEX, ¢ 


10 

@1,ERR.FLAG 

16(RO),6( SP) ¢, TMP LOCATION 
6(SP),CSR.WORD TMP .LOCATION, « 
OMSGS9, -C SP) 
1,-(SP) 
SP,RO SP,* 
14 

@MSG29, (SP) 
@1,-(SP) 

SP ,RO SP,« 
14 

@MSG25 , (SP) 


SP,* 


SGOO 
ERROR SREPORT 
10,SP 
R1 


R1,02000 
8$ 





DS 


ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST §-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 4 ey 
v01.0 GLOBAL ROUTINE - CHK_RIXI_STATUS ( P1 ) 5-Jul-1984 14:02:25 ([MAZURCZYK .DEQNA)ZQNA4 .BLI;2 

000356 062706 000010 11$: ADD #10,SP : 1807 
000362 000207 RTS PC 

; Routine Size: 122 words, Routine Base: ACSCODE$ + 1262 

; Maximum stack depth per invocation: 14 words 


: 1883 1 


SEQ 0237 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 20 
GLOBAL ROUTINE - CHK_CSR_STATUS ( Pl, P2 ) 5-Jul-1984 14:02:25 [MAZURCZYK . DEQNA)ZQNA4 .BLI;2 (12) 
SSBTTL ‘GLOBAL ROUTINE - CHK _CSR_STATUS ( Pl, Pe 


GLOBAL ROUTINE CHK_CSR_STATUS ( P1, P2 ) : NOVALUE = 


— 
* 


GLOBAL ROUTINE : CHK _CSR_STATUS 
DESCRIPTION: 

This routine checks CSR status words for expected status. 
INPUT PARAMETERS: 

Pi - expected CSR status 


P2 - CSR mask 
TEST_NO - test number in which error occurred. 


o 
m 
o 
foal 
4 


: SAVE CSR, RESET TRANSMIT AND RECEIVE REQUEST BITS IN THE CSR 


DELAY ( 5 ); 
CSR_WORD = GET_BIT [{ CSR_ALL }; 


PUT_BIT [ CSR, RI, ONE ); 
PUT_BIT { CSR, XI, ONE ); 


TEMP1 = .CSR_WORD AND .P2; 
IF .TEMP1 NEQU .P1 
THEN 


) 
( MSG12, .TEMP1, .P1 ); 
€ 0006, MSGOO, ERRORSREPORT ); 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
2 
1 


-SBTTL CHK.CSR.STATUS GLOBAL ROUTINE - CHK_CSR_STATUS ( Pl, P2 ) 
CHK .CSR. STATUS: : 
MOV R1,-(SP) ; 


-(SP),-CSP) 
@5,R1 3 *,$$TMP2 


1$: 4$ 
LSOLY,RO 3 *,$$TMP1L 





Routine Size: 
Maximum stack 


1928 
1929 


1 
1 


CZQNACO DEQNA FUNCTIONAL 


TEST 
GLOBAL ROUTINE - CHK_CSR_STATUS ( Pl, P2 ) 


000002 2s: 
3$: 
4$: 

000016 

100200 

000010 


000001 
000016 
000005 
000012 
S$: 
61 words, Routine Base: 


depth per invocation: 10 words 


F3 


5-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


3$ 
2(SP) 
RO,2$ 
R1 


1$ 
a 


(SP), TEMP1 
tania 


RO, TEMP1 
 tlhentenaas ali 
@1,ERR.FLAG 
@MSGS9, -C SP) 
#1,-CSP) 

SP RO 


14 
nak hy 


GOO 
ERROR $REPORT 


#12,SP 
(SP)+,(SP)+ 
(SP)+,R1 
PC 


ACSCODE$ + 1646 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNAJZGNA4 .BLI;2 


$$TMP 
$$TMP1,# 
3s $$TMP2 


3; *,TMP.LOCATION 


; CSR.WORD,« 
3; P2,* 


SEQ 023 
Page 


8 
21 
(12) 


1912 


1915 
1917 


1919 


1922 
1923 


1924 


1925 


1921 
1886 


SEQ 0239 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VA 11 Bliss-16 V4.0-579 Page 22 
GLOBAL ROUTINE - CHK_XMIT_STATUS ( Pl, P2 ) S-Jul-1984 14:02:25 [MAZURCZYK .DEQNA )ZQNA4 .BLI;2 (13) 
SSBTTL ‘GLOBAL ROUTINE - CHK_XMIT_STATUS ( Pi, P2 )' 


GLOBAL ROUTINE CHK_XMIT_STATUS ( P1, P2 ) : NOVALUE = 


P] 


* 
- 


GLOBAL ROUTINE : CHK _XMIT_STATUS 
DESCRIPTION: 

This routine checks transmit status words for expected status. 
INPUT PARAMETERS: 

43 - XMIT flag word 


p - expected XMIT status word 1 
TEST_NO - test number in which error occurred. 


ise] 
m 
o 
Ca] 
2 


ASK OUT DON’T CARE BITS IN THE XMIT FLAG WORD AND COMPARE TO EXPECTED 
a — STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT FLAG WORD 


st@et@rtaerteata 
‘wxz” 
Za 


TEMP2 = .XMIT_O_LIST [ FLGWD ] AND XFLG_MASK; ! 0° 140000' 
IF .TEMP2 NEQU .P1 
THEN 


BEGIN 
ERR_FLAG = ONE; 
CSR_WORD = GET_BIT ({ CSR_ALL }; 
PRINTB ( MSGS9 ); 
PRINTB ( MSG13, * TEMP2, XFLG_MASK ); 
ERRDF ( 0007, MSGOO, ERRORSREPORT ); 


. 
° 


MASK OUT DON'T CARE BITS IN THE XMIT STATUS WO1 AND COMPARE TO EXPECTED 
XMIT STATUS WD1. IF STATUS NOT EQUAL THEN PRINT ‘BAD XMIT STATUS WORD 1’ 


el { STWO1 ] GTRU ZERO 
tas. = ,XMIT_D_LIST ( STWO1 ] AND XWD1_MASK ! 0'157760' 
TEMPS = .XMIT_D_LIST ({ STWD1 ) AND X1_MASK; ! 0*100000' 


IF . TEMPS NEQU .P2 


NVNNMNVMNNVNNNNNNNWWUWWWNRRRRNNNNRN NNN RP eR RP Re Re ee ee ee Re eee ee ee 





SEQ 0240 
CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 25 
GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) S-Jul-1984 14:02:25 [MAZURCZYK ,DEQNA)ZQNA4 .BLI;2 (13) 


THEN 
BEGIN 
ERR_FLAG = ONE; 
CSR_WORD = GET_BIT ( CSR_ALL }; 
PRINTB ( MSG59 ); 
ae” ( MSG14, TEMPS, -P2 ); 
oe! € 0008, MSGOO, ERROR $REPORT )3 


HK MNMWWWWwwt 


-SBTTL CHK.XMIT.STATUS GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) 
024646 CHK, AAIT.STATUSS® 


-(SP) 
013737 000000G 000000G XMIT.O.LIST, TEMP2 
037777, TEMP2 
TEMP2, 10( SP) #,P1 


1$ 

#1,ERR.FLAG 

REG.ADR,RO 

16(RO), (SP) *, TMP.LOCATION 
TMP .LOCATION, # 


SP ,* 


MSGOO 
ERROR$SREPORT 
#12,SP 

~ -D.LIST+10,R0 


RO, TEMPS 
#20017, » TEMPS 


RO, TEMPS 
077777, TEMPS 
> alee 6(SP) *,P2 


a. ERR.FLAG 

REG. ADR.RO 

16(RO),2(SP) *«, TMP .LOCATION 
TMP .LOCATION, 


000000G 
012746 #1,-(SP) 





SEQ 0241 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 24 
(13) 


GLOBAL ROUTINE - CHK_XMIT_STATUS ( P1, P2 ) 5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA)ZQNA4.ELI;2 
SP RO 3; SP,* 
14 
000012 12(SP),(SP) ; P2,* 1988 
000000G 


; SP,* 


MSGOO 
ERROR $REPORT 
#12,SP 

4$: (SP)+,(SP)+ 
PC 


000012 
000207 
; Routine Size: 95 words, Routine Base: ACSCODE$ + 2040 
; Maximum stack depth per invocation: 9 words 


1993 1 
1994 1 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


JS 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 ) S-Jul-1984 14:02:25 [MAZURCZYK .DEQNA)ZQNA4 .BLI;2 


SSBTTL ‘GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 )' 
GLOBAL ROUTINE CHK_RCV_STATUS ( P1, P2 ) : NOVALUE = 


* 
> 


GLOBAL ROUTINE : CHK _RCV_STATUS 
DESCRIPTION: 

This routine checks receive status words for expected status. 
INPUT PARAMETERS: 

P1 - expected RCV flag word 


P2 - expected RCV status word 1 
TEST_NO - test number in which error occurred. 


o 
m 
o 
oa] 
2 


* 
a 


MASK OUT DON’T CARE BITS IN THE RCV FLAG WORD AND COMPARE TO EXPECTED 
eeemen STATUS. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV FLAG WORD 
U ‘ 


TEMP1 = .RCV_D_LIST [ FLGWD ) AND RFLG_MASK; ! 0'140000' 
IF .TEMP1 NEQU .P1 
THEN 


BEGIN 
ERR_FLAG = ONE; 
CSR_WORD = GET_BIT [ CSR_ALL ); 
PRINTB ( MSGS9 ); 
PRINTB ( MSG15, .TEMP1, RFLG_MASK ); 
— ( 0009, MSGOO, ERRORSREPORT ); 
$ 


¢ 
MASK OUT DON’T CARE BITS IN THE RCV STATUS WD1 AND COMPARE TO EXPECTED 
RCV STATUS WD1. IF STATUS NOT EQUAL THEN PRINT ‘BAD RCV STATUS WORD 1° 


F ia { STWD1 ] GEQU ZERO 
. ee = .RCV_O_LIST { STWD1 ] AND R2_MASK ! 0'174017' 
L 
TEMP2 = .RCV_D_LIST [ STWD1 ] AND .P2; 


IF .TEMP2 NEQU .P2 
THEN 


SEQ 0242 
Pp 


age 


(14) 





fy 
x 
HMM WWW 


026646 


013737 
042737 


012746 


K3 


CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 
GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 ) S-Jul-1984 14:02:25 


BEGIN 
ERR_FLAG = ONE; 
CSR_WORD = GET_BIT [ CSR_ALL }; 
PRINTB ( MSG59 ); 
PRINTB ( MSG16, TEMP2, -P2 ); 
ERRDF ( 0010, MSGOO, ERRORSREPORT ); 


-SBTTL CHK.RCV.STATUS GLOBAL ROUTINE - CHK_RCV_STATUS ( P1, P2 ) 


END; 
END; 
CHK .RCV.STATUS:: 

CMP -(SP),-CSP) 
000000G 000000G MOV RCV.D.LIST, TEMP1 
037777 000000G BIC 037777, TEMP1 
000000G 90001 ao _ »L0(SP) 
000001 000000G MOV #1,ERR.FLAG 
000000G MOV R ~RO 
000016 MOV 16(RO), (SP) 
000000G MOV (SP), csr. WORD 
000000G MOV #MSG59, -(SP) 
000001 MOV #1,-(SP) 

MOV SP ,RO 

TRAP 14 
140000 MOV #-40000, (SP) 

MOV TEMP1,-CSP) 
000000G MOV $MSG15, -(SP) 
000003 MOV $3, -(SP) 

MOV SP.RO 

TRAP 14 

TRAP 55 

-WORD 11 

-WORD MSGOO 

.»WORD ERROR$SREPORT 
000012 ADD #12,SP 
000010G 1$: MOV RCV.0.LIST+10,R0 
000000G MOV RO, TEMP2 
003760 000000G BIC #3760, TEMP2 
000000G 000006 As + aameaetati 
000001 000000G MOV #1,ERR.FLAG 

MOV REG. ADR,RO 
000016 000002 MOV 16(RO),2¢SP) 
000002 000000G MOV 2(SP),CSR.WORD 
000000G MOV @MSG59, -( SP) 
000001 MOV #1,-CSP) 

Vv SP,RO 

TRAP 14 
000012 MOV 12(SP),(SP) 
000000G MOV TEMP2, -( SP) 


000000G MOV MSG16, -(SP) 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA]ZQNA4 .BLI;2 


*,Pl1 
*, IMP .LOCATION 


TMP .LOCATION, * 


SP,#* 


SP,«# 


‘#,P2 


+, TMP .LOCATION 
TMP .LOCATION, « 


SP,* 
P2,* 


SEQ 0243 
Page 26 
(14) 


L3 


ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 
vo1.0 GLOBAL ROUTINE - CHK_RCV_STATUS ( Pl, P2 ) 5-Jul-1984 14:02:25 
000230 012746 000003 MOV 03,-CSP) 
000234 010600 Vv SP,RO 
000236 104414 TRAP 14 
000240 104455 TRAP 55 
000242 000012 . WORD 12 
000244 .» WORD MSGOO 
000246 000000' . WORD ERROR$REPORT 
000250 062706 000012 ADD #12,SP 
000254 022626 2s: CMP (SP)+,CSP)+ 
000256 000207 RTS PC 
Routine Size: 88 words, Routine Base: ACSCODE$ + 2336 


Maximum stack depth per invocation: 9 words 


2057 1 


Ee 
VAX-11 Bliss-16 V4.0-579 a Nooggi 27 
([MAZURCZYK .DEQNA)ZQNA4 .BLI;2 (14) 
; SP,* 
3 2053 
) 
/ 
3 / 2048 
3 1997 
» 


E 


oe Se ©) Ge Ge Ge Ge Gt Ge Ge GH Gt Ge Ge Ge Gt Ge Ge Ge Ge Ge Ge Gt Ge Ge GH GH Ge Gt GH Ge Ge Gt Ge GH GH Ge Ge GE Gt Gt GH GH Ge Gt Ge Gt GH Ge Gt GF Ge Ge 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 





SEQ 0245 
CZQNACO DEQNA FUNCTIONAL TEST : S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 28 
GLOBAL ROUTINE - COMPARE_PACKETS ( ) _ 39-Jul-1984 14:02:25 (MAZURCZYK .DEQNA )ZQNA4 .BLI;2 (15) 
*SBTTL ‘GLOBAL ROUTINE - COMPARE_PACKETS ( )° 


GLOBAL ROUTINE COMPARE_PACKETS : NOVALUE = 


* 
> 


GLOBAL ROUTINE : COMPARE _PACKETS 
DESCRIPTION: 


This routine compares contents of transmit packet to the contents 
of receive packet and prints an error message if the don't compare. 


@ 
m 
o 
Lond 
2 


GET RECEIVE BYTE LENGTH ( RBL ) FROM RCV DISCRIPTOR AND COMPUTE WORD 
LENGTH. THEN COMPARE ACTUAL TO EXPECTED RCV WORD LENGTH. 


cece tare 
' * 


TEMPS = 0; 
IF AU BIT { CSR, LB ) GTRU ZERO 
THT EMPS = .RCV_D_LIST ( STWD1 ] AND RHL_MASK; ! 0'003400' 
ee AND #0'01' ) EQLU ZERD 
TEMPS = .TEMP3 + ( .RCV_D_LIST ( STWD2 ] AND RLL_MASK ) ! 0'000377' 
ELEM = 6; . 
IF — NEQU .RBUF _LENGTH 


ONE ; 
CSR_WORD = GET_BIT ( CSR_ALL }; 
PRINTB ( MSG59 ); 
PRINTB ( MSG17, .TEMP3, .RBUF_LENGTH ); 
ERROF ( 0011, MSGOO, ERRORSREPORT ); 
END; 
oa ~ pe FROM O TO .TEMP3 - 1 DO 
7 ev DIST { STWO1 ) EQLU NEWB 
RCV_BUFFER [ .INDEX ] = ZERO; 
Fat re { . INDEX ] NEQU .RCV_BUFFER [ . INDEX ] 


IF .RCV_D_LIST [ LONGP } EQLU ONE 
THEN : 


ee ee @+ @e Ge Ge Gt G+ Gt Ge GF Gt ee ae GF 
ft 
~ 
j~ 
@ 
KPMWNSHHLALSLSDSLWHLHLHAL 


N3 


CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - COMPARE_ PACKETS € ) 5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA )ZQNA4 .BLI;2 


BEGIN "° 
TEMPS = .INDEX; 
EXITLOOP; 

END 


ELSE 
BEGIN 


ron -FLAG = ONE 
CSR_WORD = GET_ ‘BIT { CSR_ALL ]; 
PRINTB ( MSGS9 ); 
PRINTB ( MSGS1 3 
( MSGSO, .RCV_BUFFER ( .INDEX ], .XMIT_BUFFER [ .INDEX ), .INDEX ); 


PRINTB 
ERRDF (€ 0012, MSGOO, ERRORSREPORT ); 
END; 
END; 
END; 
.SBTTL COMPARE.PACKETS GLOBAL ROUTINE - COMPARE_PACKETS ( ) 
000000G COMPARE .PACKETS: : 
JSR R1, $SAVE2 : 
CMP -(SP),-CSP) 
000000G CLR TEMPS : 
000000G MOV REG. ADR,RO : 
000016 MOV 16(RO),-CSP) ; *,TMP.LOCATION 
001400 2 + atlanta 3; *,TMP.LOCATION 
000010G 000000G MOV RCV.0.LIST+10, TEMPS 8 
174377 000000G BIC #174377, TEMPS 
000001 000000G 1$: BIT #1,CSR.WORD : 
BNE es 
CLR R1 ; 
000012G BISB RCV.O.LIST+12,R1 
ADD R1, TEMPS 
BR 3$ 3 
000006 000000G 2s: MOV 06, TEMPS 3 
000000G 000000G 3$: a Fors Oe Le 
000001 000000G MOV #1,ERR.FLAG 3 
000016 000002 MOV 16(RO),2CSP) 3 *,TMP.LOCATION 
000002 000000G MOV 2(SP),CSR.WORD 3; TMP.LOCATION,* 
MOV @MSG59, -( SP) 8 
000001 MOV #1,-(SP) 
MOV SP ,RO 3 SP,* 
TRAP 14 
000000G MOV RBUF .LENGTH, (SP) ’ 
000000G MOV TEMPS, -(SP) 
000000G MOV @MSG17,-CSP) 
000003 


MOV #3,-CSP) 
SPR 


Vv e 3; SP,«* 
TRAP 
TRAP 55 H 
-WORD 13 
-WORD MSGOO 


SEQ 024 
Page 


6 
29 
(15) 


2060 


2079 
2081 


2083 
2085 
2087 


2085 
2089 
2091 


2094 
2095 
2096 


2097 


2098 


B4 


=e. 0247 
ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST §-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 30 
v01.0 GLOBAL ROUTINE - COMPARE_PACKETS ( ) 5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA )ZQNA4 .BLI;2 (15) 
000176 000000’ . WORD ERRORSREPORT 
000200 062706 000012 ADD = 12,SP : 2093 
000204 013702 0000006 4s: MOV TEMPS ,R2 : 2101 
000210 005001 CLR R1 s INDEX 
000212 000474 BR 9$ 
000214 023727 000010G 100000 S$: CMP RCV.D.LIST+10,@-100000 : 2103 
060222 001002 BNE 6$ 
000224 105061 000000G CLRB RCV.BUFFER(R1) s #C INDEX) 2105 
000230 126161 000000G 000000G 6$: CMPB XMIT.BUFFER(R1),RCV.BUFFER(R1) ; #C INDEX),*C INDEX) 2107 
000236 001461 BEQ 8$ 
000240 032737 040000 000010G BIT — RCV.D. LIST+10 3 2109 
000246 001403 BEG 
000250 010137 000000G MOV ai. TEMPS 3 INDEX,« 2112 
000254 000455 BR 103 3 2111 
012737 000001 000000G 7$: MOV @1,ERR.FLAG 3 2117 
013700 000000G MOV REG. 2RO 3 2118 
000270 016066 000016 000004 MOV 16(RO),4(SP) 3 *,TMP.LOCATION 
000276 016637 000000G MOV 4(SP),CSR.WORD 3 TMP.LOCATION,+¢ 
012746 MOV oMSG59, -( SP) F} 2119 
000310 012746 000001 MOV @1,-(SP) 
000314 010600 MOV SP ,RO 3 SP,« 
000316 104414 i TRAP 14 
000320 012716 000v00G 3 . MOV @mMSG51,(SP) 3 2120 
000324 012746 000001 ‘ "MOV 1,-(SP) 
000330 010600 MOV SsP,RO : SP,« 
000332 104414 TRAP 14 
000334 010116 MOV R1,(SP) 3; INDEX,¢ 2121 
000336 005046 CLR -( SP) 
000340 116116 000000G MOVB XMIT.BUFFER(R1), (SP) 3s *CINDEX),« 
000344 005046 CLR ~(SP) 
000346 116116 000000G MOVB RCV .BUFFER(R1), (SP) : *CINDEX),« 
000352 012746 000000G MOV @MSGSO, -( SP) 
000356 012746 000004 MOV 04,-(S 
010600 MOV ‘SP,RO 3: SP,« 
000364 104414 TRAP 14. 
000366 104455 TRAP 55 : 2122 
000370 000014 .- WORD 14. 
000372 000000G . D MSGOO 
000374 000000’ -WORD ERRORSREPORT 
000376 062706 000016 ADD 016,SP ry 2116 
000402 005201 8$: INC R1 3; INDEX 2101 
000404 020102 9%: CMP R1,R2 3 INDEX,¢ 
000406 002702 BLT S$ 
000410 062706 000006 10$: ADD 06,SP Fy 2060 
000414 000207 RTS PC 
s Routine Size: 135 words, Routine Base: ACSCODES + 2616 


s Maximum steck depth per invocation: 15 words 


s 2126 1 
. #ia7 § 











9010 10 1090 90 10 90 0 00 & Pe ee ee ee ee ee 


000000 012737 







$ 2159 1 





3s Routine Size: 
; Maximum stack depth per invocation: 0 words 


C4 


CZQNACO DEQNA FUNCTIONAL TEST $-Jul-1984 14:13:51 
GLOBAL ROUTINE - SET_RDESCR_LIST ( Pl, P2) S-Jul-1984 14:02:25 


SSBTTL ‘GLOBAL ROUTINE - SET_RDESCR_LIST ( Pl, P2)' 
GLOBAL ROUTINE SET_RDESCR_LIST ( P1, P2 ) : NOVALUE = 


2 
° 


GLOBAL ROUTINE : SET_RDESCR_LIST 
DESCRIPTION: 

This routine initializes receive descriptor list. 
INPUT PARAMETERS: 


Pl - expected Ethernet packet length in words 
P2 - expected RCV Descriptor List settings 


BEGIN 

RCV_O_LIST [ FLGWD ) = NEWB; 
RCV_D_LIST { DBITS ) = .P2; 
RCV_D_LIST [ LOADR ) = RCV_BUFFER; 
RCV_O_LIST { TWwOL ) = .PIl; 
RCV_O_LIST { STWO1l ) = 0; 
RCV_O_LIST { STWO2 ] = 0; 
RCV_O_LIST { OLINK ) = V; 
RCv_O_LIST { BSTAT ) = E; 






100000 000000G SET.RDESCR.LIST:: 
MOV @-100000,RCV.D.LIST 
900002 0000026 MOV 2(SP),RCV.O.LIST+¢2 
000000G 000004G MOV ORCV.BUFFER,RCV.D.LIST+4 
000004 000006G MOV 4(SP),RCV.D.LIST+6 
000010G CLR RCV.D.LIST+10 
000012G CLR RCV.D.LIST+12 
100000 000014G MOV #-100000,RCV.D.LIST+14 
020000 000016G MOV 620000, RCV.D0.LIST+16 
RTS PC 
23 words, Routine Base: ACSCODES + 3234 






VAX-11 Bliss-16 V4.0-579 
{[MAZURCZYK .DEQNA )ZQNA4 .BLI;2 





SBTTL SET.RDESCR.LIST GLOBAL ROUTINE - SET_RDESCR_LIST ( Pil, P2) 


P2,¢ 
Pl,« 





SEQ 0248 
Page 
(16) 







SEQ 0249 
CZQNACO DEQNA FUNCTIONAL TEST $-Jul -1984° 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 32 
GLOBAL ROUTINE - SET_XDESCR_LIST ( Pl, P2 ) 5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA)ZQNA4 .BLI;2 (17) 
@SBTTL ‘GLOBAL ROUTINE - SET_XDESCR_LIST ( Pi, Pe )' 


GLOBAL ROUTINE SET_XDESCR_LIST ( Pl, P2 ) : NOVALUE = 


+ 
* 


GLOBAL ROUTINE : SET_XDESCR_LIST 
DESCRIPTION: 

This routine initializes transmit descriptor list. 
INPUT PARAMETERS: 


Pl - expected Ethernet packet length in words 
P2 - expected XMIT Descriptor List settings 


BEGIN 
XMIT_O_LIST NEWB ; 


P23 
XMIT_BUFFER; 
Pl 


Ret a ed ted bet Ed 
see neeea 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 


-SBTTL SET.XDESCR.LIST GLOBAL ROUTINE - SET_XDESCR_LIST ( Pl, P2 ) 
012737 SET. XDESCR.LIST:: 
MOV #-100000, XMIT.O.LIST 
2(SP),XMIT.O.LIST+2 
OXMIT .BUFFER,XMIT.D.LIST+4 
4(SP),XMIT.O.LIST+6 
XMIT.D.LIST+10 
XMIT.D.LIST+12 
@-100000, XMIT.D.LIST+14 
> ‘aa ad acetate 


P2,¢ 
Pl,* 


3 Routine Size: 23 words, Routine Base: ACSCODES + £ 12 
: Maximum steck depth per invocation: 9% words 


Fy 2191 1 









E4 
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vo1.0 GLOBAL ROUTINE - WALKING_BIT ( Pl, P2, P3 ) S-Jul-1984 14:02:25 (MAZURCZYK . DEQNA )ZQNA4 .BLI;2 (18) 


SSBTTL ‘GLOBAL ROUTINE - WALKING_BIT ( Pl, P2, P3 )' 
GLOBAL ROUTINE WALKING_BIT ( P1, P2, P3 ) : NOVALUE = 


a 
* 


GLOBAL ROUTINE : WALKING_BIT 
DESCRIPTION: 


This routine sets bit to 0 or 1 in a specified bit position of the 
Ethernet Station Address. For example, 


if 
; -Pl1 = 0 and .P2 = 15 P3 = 5 


Ethernet Station Address = FF-FF-FF-FF-7F -FF 
INPUT PARAMETERS: 
Pl - bit ( O or 1 ) 


P2 - bit position from base address 
P3 - © of bytes to be tested using this pattern 


then 


OS OS CSCS CSS CSCS *S*S tS (StS tS tS tataratatarta 


BEGIN 
eo .P2 OF 
r ©) ¥ ie 
0; 


TEMP1 = 
{ 8TOC¢C .P3 +1)48 1): 
TEMPi + .P2 / &; 
TES; 


TEMP2 = .P2 MOD 8; 
IF .P1 EQLU ZERO 
THEN 


BEGIN 
TBYTE1 = #8'00000000' ; 
or: tre - TEMP2 OF 


}: TBYTES 
TBYTES 
TBYTES 
TBYTES 
TBYTES 
TBYTES 
TBYTES 
TBY TES 


AAAAAAAAMY 
at ed bes ed et 
seenenaee#ea 
SS888888 

o 
tw 
oso 
oe ee Ge Gs Ge Ge Ge Ge 


m 





ee Ge Ge Ge Gs Ge Ge Ge Gt Ge Ge Ge Ge Ge GH Ge Ge Gt Gt Ge GS Ge Ge GH Ge GH Ge Ge Gt Gs Ge Gt Ge Gt Ge Ge Gt Ge GF Ge Ge Ge Ge Gt GF Ge Gt GF Ge Ge GF Ge Ge 
furut 
wrt 
fUlr 
KOw 
WWW ON Ot tt rt 6 90 900. 910. 910 910. 910 910 9100 9100. 10 910.90: 90 0 ee ee ee 


YnDUaWNrO 





F4 


E 
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; 2245 3 END 
; 2246 2 ELSE 
; 2247 3 BEGIN 
; 2248 3 TBYTE1 = #B'11111111'; 
; 2249 3 SELECTONE .TEMP2 OF 
; 2250 3 SET 
; 2251 3 { 0]: TBYTES = #0'376'; 
— e232 2 { 1): TBYTES = #0'375'; 
; 2253 3 { 2]: TBYTES = #0'373'; 
; 2254 3 {3 ]): TBYTES = #0'367'; 
s e2ss 3 { 4]: TBYTES = #60'357'; 
; 2256 3 {5 }: TBYTES = #0'337'; 
; 2257 3 { 6]: TBYTES = #0'277'; 
; 2258 3 { 7): TBYTES = #0'177'; 
; e259 3 TES; 
; 2260 2 END; 
; 2261 2 
; 2262 2 INCR INDEX FROM O TO .P3 DO 
; 2263 2 TARGET_ADR [ .INDEX ) = .TBYTE1; 
: 2264 2 
; 2265 2 TEMPS = .P3 - .TEMP1; 
: 2266 2 TARGET_ADR [ .TEMP3 ] = .TBYTES; 
s; 2267 2 
; 2268 1 END; 

-SBTTL WALKING.BIT GLOBAL ROUTINE - WALKING_BIT ( P1, P2, P3 ) 
000000 004137 0000006 WALKING.BIT:: 

; JSR R1, $SAVE2 F 2194 
000604 016602 000012 MOV 12(¢SP),R2 ; P2,* 2220 
000010 002406 BLT 1$ : 2222 
000012 020227 000007 CMP R2,07 
000016 003003 BGT 1$ 
000020 005037 000000G CLR TEMP 1 3 2223 
000024 000421 BR es ; 2220 
000026 020227 000010 1$: CMP R2,010 8 2224 
000032 002416 BLT 2s 
000034 016600 000010 MOV 10(SP),RO ; P3,*« 

000040 072027 000003 ASH @3,RO 

000044 062700 000010 ADD #10,RO 

000050 020200 CMP R2,RO 

000052 003006 BGT 2s 

000054 010201 MOV R2,R1 ; 2225 
000056 006700 SxT RO 

000060 071027 000010 DIV #10,RO0 

000064 010037 000000G MOV RO, TEMP1 

000070 010201 2s: MOV R2,R1 3 2228 
000072 006700 SxT RO 

000074 071027 000010 DIV #10,R0 

000100 010137 000000G MOV R1, TEMP2 

000104 010100 MOV e ; TEMP2,+* 2234 
000106 005766 000014 TST 14(SP) 3; Pl 2230 


000112 001071 BNE 10% 


012737 


CZQNACO DEGNA FUNCTIONAL TEST 


GLOBAL ROUTINE - WALKING_BIT ( P1, P2, P3 ) 


000000G 


G4 


5-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


TBYTEL 
RO 


3$ 

$1, TBYTES 

18$ 

RO, @1 

4s 

62, TBYTES 

18% 

RO, #2 

S$ 

04, TBYTES 

18$ 

RO, #3 

6% 

#10, TBYTES 
18% 

RO, 04 

7$ 

#20, TBYTES 
18% 

RO,@S 

8$ 

040, TBYTES 
18$ 

RO, 06 


9$ 

#100, TBYTES 
18$ 

RO,@7 

18% 

#200, TBYTE3 
18$ 

0377, TBYTE1 
RO 


11$ 

0376, TBYTES 
18$ 

RO, #1 

12% 

0375, TBYTES 
18$ 

RO, #2 

13% 

0373, TBYTES 
18$ 

RO, 03 

14$ 

0367, TBYTES 
18% 

RO, 04 

15% 

0357, TBYTES 


VAX-11 Bliss-16 V4.0-579 
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SEQ 0252 
Page 35 
(18) 
2233 
2236 


2234 
2237 


2234 
2238 


2234 
2239 


2234 
2240 


2234 
2241 


2234 
2242 





Routine Size: 
Maximum stack 


2269 1 


CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - WALKING_BIT ( P1, P2, P3 ) 


000005 


000010 

000010 000000G 
000000G 000000G 
000000G 000000G 


173 words, 


depth per invocation: 


15$: 


16$: 


17$: 


18$: 
19$: 
20$: 


Routine Base: 
4 words 


MOVB 
RTS 


H4 


S-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


18$ 
RO, 05 


16$ 

0337, TBYTES 
18$ 

RO, #6 

17$ 

#277, TBYTES 
18% 

RO, @7 

18$ 

0177, TBYTES 
RO 


20$ 

ene ee 
RO,10(SP) 

19$ 


10(SP), TEMPS 
TEMP1, TEMPS 


TEMP3 ,RO 
a ne 


ACSCODE$ + 3370 


VAX-11 Bliss-16 V4.0-579 
[MAZURCZYK , DEQNAJZQNA4 .BLI;2 


INDEX 

*,*( INDEX) 
INDEX 
INDEX ,P3 
P3,* 


SEQ 0253 
Page 36 
(18) 
2249 
2256 


2249 
2257 


2249 
2258 
2262 
2263 
2262 
2265 
2266 
2194 


14 
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SSBTTL ‘GLOBAL ROUTINE - WRT_STATION_ADR ( P1, Pe )' 
GLOBAL ROUTINE. WRT_STATION_ADR ( P1, P2 ): NOVALUE = 


SEQ 0254 


* 
* 


GLOBAL ROUTINE : WRT_STATION_ADR 
DESCRIPTION: 

This routine writes Station Address to XMIT_BUFFER. 
INPUT PARAMETERS: 


Pi - Ethernet Station Address index (1:14) in Station Address RAM 
P2 - Ethernet Station Address index ( 0:19 ) im the TARGET_ADR table 


BEGIN 
TEMP1 = .P2 * 6; 
SELECTONE .P1 OF 
r 0TO0 7): 
{ 8 TO 14 }: 
TES; 
IF .TEMP2 EQLU ZERO 
THONCR INDEX FROM 0 TO 5 DO 
+ RMIT BUFFER [ . 3 = .TARGET_ADR { .INDEX + .TEMP1 ]; 


TEMP2 = .P1; 
TEMP2 = .Pl + 57; 


ELSE 
INCR INDEX FROM O TO 5 DO 
BEGIN 
TEMPS = . INDEX # 6 + ,TEMP2; 
xMIT “BUFFER { .TEMPS } = .TARGET_ADR [ .INDEX + .TEMP1 J; 
ND; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
2 
2 
3 
3 
3 
2 
1 


-SBTTL WRT.STATION.ADR GLOBAL ROUTINE - WRT_STATION_ADR ( Pl, P2 ) 
WRT. STATION. ADR: ; 

JSR R1, $SAVE3 ; 
12(SP),R1 3 Pe,* 
#6 ,R1 


Ri, TEMP1 
14(SP), RO ; Pl.* 





J4 
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i$ 3 
RO, #7 


1$ 
~— 
RO, #10 
es 


SEQ 0255 
P 


INDEX 
INDEX, * 


*, «C INDEX) 

INDEX 

INDEX, « 

INDEX 

INDEX, * 
000003 


0000006 
INDEX, * 


000000G TEMP1,R1 
000000G 000000G ne eT nee 


NC 
000005 > Se INDEX, * 
PC 


INDEX 


Routine Size: 61 words, Routine Base: ACSCODE$ + 4122 
Maximum stack depth per invocation: 5 words 


2314 1 





ee e+ Ge G+ G+ Ge Ge Gt Ge Ge GH Gt Gt Ge Ge Gt Ge Ge Ge Gt Gt Gt Gt Gt Ge Gt Gt Ge Ge Ge GF Ge GF Ge Ge Ge 
furor 
WWW 
WWW 
VWbw 
KPNMNNMNWWWR RRR RP RRR Re ee ee ee ee eee ep 


00 
020127 
003761 


K4 


5-Jul-1984 14:13:51 


CZQNACO DEQNA FUNCTIONAL TEST 
5-Jul-1984 14:02:25 


GLOBAL ROUTINE - PREP_FOR_SETUP ( ) 
SSBTTL ‘GLOBAL ROUTINE - PREP_FOR_SETUP ( ) ' 
GLOBAL ROUTINE PREP_FOR_SETUP ;: NOVALUE = 


* 
ad 


GLOBAL ROUTINE : PREP_FOR_SETUP 
DESCRIPTION: 


INPUT PARAMETERS: 


none 


+ 
+ 


TARGET_ADR’ VECTOR. 


INCR INDEX FROM O TO 5 DO 
BEGIN 
TBYTE1 = .REG_ADR [ .INDEX, ST_ADDR }; 
TARGET_ADR [ € PHA_LINDEX * 6 ) + . INDEX ] = .TBYTE1; 


END; 
CLR_BUFFERS ( 256 ); 
END; 
-SBTTL PREP.FOR.SETUP GLOBAL ROUTINE - 
PREP .FOR.SETUP:: 
MOV R1,-CSP) 
TST -(SP) 
CLR R1 
1$: MOV R1,RO0 
ASL RO 
000000G ADD REG. ADR,RO 
MOV CRO), (SP) 
000000G CLR TBYTE1 
000000G MOVB (SP), TBYTE1 
000162G 9 BoP 22 SPREES AER CRRE OSS 
000005 CMP R1,¢5 
BLE 1$ 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNAJZQNA4 .BLI;2 


This routine retrives Ethernet Station Address from the Ethernet's 
Station Address PROM, saves copy of Ethernet Station Address PROM 
in the TARGET_ADR vector, initializes transmit and receive buffers 
to zero and finally sets buffer length to select promiscuous mode. 


PREP_FOR_SETUP ( ) 


RETRIEVE ETHERNET PHYSICAL STATION ADDRESS AND SAVE A COPY OF IT IN THE 


INDEX 
INDEX, * 


*«, TMP .LOCATION 


#, #C INDEX) 
INDEX 
INDEX, * 


2317 


2342 
2344 


2345 
2342 


L4 


— eos 40 
(MAZURCZYK .DEQNA)ZQNA4 .BLI;2 20) 
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GLOBAL ROUTINE - PREP_FOR_SETUP ( ) S-Jul-1984 14:02:25 


012746 000400 #400 


»-CSP) 

mare Tot wile: 
+e + 

rs , 2317 


: Routine Size: 25 «ords, Routine Base: ACSCODES + 4314 
; Maximum stack depth per invocation: 4 words 





VMN WWWWWWIRNRRRNR WWW RNRNNNNNNNRNN RP RP RP RP RP RP RP Re Re Re Re Re Ree ee ee 


M4 
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GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 
SSBTTL ‘GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) ' 
GLOBAL ROUTINE FORM_HEX_ADR ( P3 ) : NOVALUE = 


o 
* 


GLOBAL ROUTINE : FORM_HEX_ADR 
DESCRIPTION: 


This routine retrives Ethernet Station Address from the Ethernet's 
Station Address PROM, saves its copy in the TARGET_ADR vector. 


INPUT PARAMETERS: 
P3 - Index to Station Address in the TARGET_ADR vector 


BEGIN 


+ 
* 


RETRIEVE ETHERNET PHYSICAL STATION ADDRESS AND SAVE A COPY OF IT IN THE 
*TARGET_ADR' AND ‘STATION_ADR' VECTORS. 


IF .P3 EQLU: ZERO 
THEN 
TEMPS = 0 
ELSE 
TEMPS = .P3 « 6; 
INCR INDEXS FROM O TO 5 DO 
BEGIN 
TBYTE1L = .REG_ADR [ .INDEXS, ST_ADDR }; 
TARGET_ADR [{ (€ PHA_INDEX * 6 ) + .INDEXS ) = .TBYTE1; 
END; 
COUNTER = ZERO; 
INCR INDEXS FROM O TO 5 BY 2 DO 
BEGIN 
TEMP1 = ,TARGET_ADR [ .TEMPS + .INDEXS ); 
TEMP1 = .TEMP1 ft 8; 
TEMP2 = .TARGET_ADR [ .TEMPS + .INDEXS « 1 


); 
STATION_ADR { .COUNTER }) = .TEMP1 OR ( .TEMP2 AND #0'000377' ); 
— = ,COUNTER + 1; 


‘ 
! PRINT ETHERNET STATION ADDRESS ON THE CONSOLE 
Gee 


COUNTER = 18; 


S-Jul-1984 14:02:25 ([MAZURCZYK .DEQNA)ZQNA4 .BLI;2 


SEQ 0258 
P 


age 


(21) 


N4 


ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 
vo1.0 GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 5-Jul-1984 14:02:25 


PHYS_ADR [0 ] 
PHYS_ADR {1 ] 
PHYS_ADR [{ 19 ] 
PHYS_ADR [ 20 ] 
PHYS_ADR [ 21 ] 


DECR INDEX1 FROM 2 TO 0 00 
BEG 


IN 
TEMPS = .STATION_ADR [ .INDEX1 ]; 
INCR INDEX2 FROM O TO 1 DO 
BEGIN 
INCR INDEX3 FROM O TO 1 DO 
BEGIN 
TEMP1 = .TEMP3 AND SX‘F'; 
IF .TEMP1 LEQU SDECIMAL'9’ 


THEN 
seress = @C'O' «+ .TEMP1L 
TBYTEL = sC’A’ + ( .TEMP1 - SDECIMAL'10' ); 
PHYS_ADR [ .COUNTER ) = .TBYTE1; 
COUNTER = .COUNTER - 1; 
TEMPS = .TEMP3 t ( -4 ); 
END; 
IF .COUNTER GTRU 2 
THEN 
PHYS_ADR [ .COUNTER ) = #C’-’; 


COUNTER = .COUNTER - 1; 


= @C' 's 


' 

fo 

wv 

Ww 
KPMMWSSSSSALSLAVVUUVUUVUUUUUUULS BWW fff ff 


ee ee Ge Ge Gs Ge Ge Ge GF Ge Gt Ge Gt Gt GF Ge Ge Ge Ge GH GH Gs GF Ge Ge Ge GF GF GF Ge Gt Ge Ge GF 
A) 
> 
LS] 
uw 


-SBTTL FORM.HEX.ADR GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 


000000 004137 0000006 FORM.HEX. ADR: ; 
JSR RL #SAVES 
000006 016600 000014 MOV 14(SP),RO 
000014 005037 0000006 CLR TEMPS 
000405 28 
000022 010001 1s: MOV RO.R1 
000030 010137 0000006 MOV R1. TEMPS 
000034 005000 2%: CLR RO 
000036 010001 3$; MOV RO.R1 


REG.ADR,R1 
000046 011116 MOV (R1),CSP) 
TBYTE1 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA)ZQNA4 .BLI;2 


3; P3,¢ 


INDEXS 
INDEXS, 


+, TMP .LOCATION 


SEQ 025 
Page 


9 
(21) 


2356 
2379 
2381 


2379 
2383 


2385 
2387 


111637 


077244 


CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - FORM_HEX_ADR ( P3 ) 


000000G MOVB 
000162G MOVB 
INC 
000005 CMP 
BLE 
000000G CLR 
CLR 
4$: MOV 
ADD 
MOVB 
000001G CLRB 
MOV 
000010 ASH 
MOV 
000001G 000000G MOVB 
000001G CLRB 
MOV 
ASL 
CLR 
000000G BISB 
000000G BIS 
000000G MOV 
000000G INC 
000002 ADD 
000005 CMP 
BLE 
000022 000000G MOV 
000045 000000G MOVB 
000101 000001G MOvVB 
000023G MOVB 
000045 000024G MOVB 
000116 000025G + iy 
000000G 000000G 5$: MOV 
000002 MOV 
000002 6$ MOV 
006000G 7$ MOV 
177760 000000G BIC 
MOV 
000011 CMP 
BHI 
MOV 
cms oceeine: aR. 
8$: MOV 
000067 000000G ADD 
9%: MOV 
000000G 000000G MOVB 
000000G DEC 
000000G MOV 
177774 ASH 
MOV 
soB 


BS 


5-Jul-1984 14:13:51 
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(SP), TBYTEL 
te TARGET . ADR+162(RO) 


R2,R1 

TEMPS ,R1 

TARGET .ADR(R1), TEMP) 
1 


RO, TEMP1 

TARGET .ADR+1(R1), TEMPS 
TEMP2+1 

COUNTER,R1 

Ri 


RO 

TEMP2 ,RO 

TEMP1,RO 

RO, STATION. ADR(R1) 
COUNTER 

@2,R2 

R2,05 


aS 
22,COUNTER 
045,PHYS.ADR 
#101 ,PHYS.ADR+1 
040 ,PHYS.ADR+235 
45, ,PHYS.ADR+24 
@116,PHYS.ADR+25 


04,R1 
Mgt ee atm esheets 


2,R2 

TEMP3, TEMP1 
0177760, TEMP1 
TEMP1 ,RO 
aeets 


RO, TBYTE1 
S68, SON TSS 


RO, TBYTEL 

067, 1BYTE1 

COUNTER ,RO 

TBYTE1 ,PHYS.ADR(RO) 
COUNTER 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK . DEQNA JZQNA4 .BLI;2 


#, «CINDEXS) 
INOEXS 
s INDEXS,« 


6 
; INDEXS 
. INDEXS o* 


«, INDEXS 
INDEXS, « 


#, INDEX1 
#( INDEX1),* 


3 INDEX3, * 


CS 
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GLOBAL ROUTINE - FORM_HEX_ADR ( PS ) 5S-Jul-1984 14:02:25 (MAZURCZYK .DEQNA )ZQNA4 .BLI;2 


013702 0000006 COUNTER ,R2 ; 
000002 R2,02 


10$ 
000055 0000006 055 ,PHYS.ADR(R2) 
000000G COUNTER 


6 
° 
000002 02,R1 3 *,INDEX1 


S$ 
PC 


SEQ 6261 
P aq 


; Routine Size: 148 words, Routine Base: ACSCODE$ + 4376 
; Maximum stack depth per invocation: 6 words 


: 2441 1 
3 2442 1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
2 
2 
2 
2 
2 
2 
2 


DS 
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SSBTTL ‘GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 )' 
GLOBAL ROUTINE XMIT_SETUP_PACKET ( P1 ) : NOVALUE = 


- 
* 


GLOBAL ROUTINE : XMIT_SETUP _PACKET 
DESCRIPTION: 


This routine initializes descriptor lists to transmit and receive 
unchained Setup loopback packet. After loopback packet has been 
received DEQNA CSR, transmit and receive status registers are 
checked for proper status. Finally, transmit and receive packets 
are compared to verify that they are identical. 


XMIT_D_LIST RCV_O_LIST 
vse. RCV_O_LIST 
XMIT_BUFFER RCV_D_LIST 


}) = NEWB 
}: ; 

; = grou - _LENGTH RCV_O_LIST 

) = 

J) = 

) = 


Vv 
RCV_BUFFER 


. XBUF __LENGTH 
RCV_O_LIST 0 


[on Sannin Camedia ion 
NOU awtr1-o 
em Ie 
NOUS wr oO 
tt a ad ad 
nueee#e#en#n#a 


XMIT_D_LIST RCV_D_LIST 


INPUT PARAMETERS: 
Pl - transmit buffer length in bytes 


BEGIN 


CLR_DESCR ( ); 

RBUF LENGTH = .P1; 

XBUF_LENGTH = - ( .RBUF_LENGTH f -1 ); 
SET ' ROESCR LIST ( .XBUF_LENGTH, VE ); 
SET_XDESCR_LIST ( .XBUF_LENGTH, VSE ); 


IF .P1 EQLU A_MODE 
THEN 


BEGIN 
XBUF_LLENGTH = - ( ( .RBUF_LENGTH f -1 ) + 1 )3 
SET_XDESCR_LIST ¢ . XBUF _ LENGTH, VSEL ); 

ee LE ( .XBUF_LENGTH, VE ); 
8 


XMIT_AND_RCV_PACKET ( ); 


ee 


COMPARE STATUS REGISTERS TO EXPECTED VALUES 


SEQ 0262 
p 45 


age 


(22) 





ee ee Ge Ge Ge Ge Ge Ge Ge Ge Gt Ge Ge GF 
2 
ue) 

=P fro fofefrofotfo 


CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - XMIT_SETUP_PACKET ( Pl ) 


Ea 


5-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZ 1K .DEQNA)ZQNA4 .BLI;2 


CHK_RIXI_STATUS ( ONE ); 
CHK_CSR_STATUS ( CSR_ STATUS, CSR_MASK ); ! 0'100220', 0'100220' 
CHK-RCV_STATUS ( RFLG_STATUS, RWD1_STATUS ); ! 0140000‘, 0'020000' 
TEMP1 = XWD12_STATUS; ! 0'000400' 
IF .XMIT_D_LIST ( STE16 ] 

THEN 

TEMP1 = #0'002400'; 

CHK _XMIT_STATUS ( XFLG, -STATUS, .TEMP1 ); ! 0'140000',, 227227? 


COMPARE PACKETS ¢ ); 
END; 


000010 000201 


-SBTTL XMIT.SETUP.PACKET 


XMIT. SETUP PACKET:: 


1%: 


PC.CLR.DESCR 
2(SP),RBUF .LENGTH 
ata 


RO 
RO, XBUF .LENGTH 
RO, -(SP) 


@-60000, -( SP) 
PC,SET.RDESCR.LIST 
XBUF .LENGTH, (SP) 
#-50000, -( SP) 

PC, SET. XDESCR.LIST 
10(SP), 29201 


1 

RBUF .LENGTH,RO 

RO 

RO 

RO 

RO, XBUF .LENGTH 
RO,(SP) 
@-47600, -( SP) 
PC,SET.XDESCR.LIST 
XBUF .LENGTH, (SP 
@-60000, -( SP) 
PC,SET.RDESCR.LIST 


(SP)+,(SP)> 
os XMIT. AND. RCV.PACKET 


1,(SP) 
Pe Cre RIXI STATUS 
@-77560,(SP) 
(SP), -(§P) 
PC, CHK .CSR. STATUS 
4- 40000, : SP) 
#20000, -( SP) 
PC,CHK.RCV. STATUS 


GLOBAL ROUTINE - XMIT_SETUP_PACKET ( P1 ) 


Pl,* 
RBUF .LENGTH, 


XBUF .LENGTH, « 


Pi,« 


XBUF .LENGTH, 


SEQ 0263 


46 
(22) 


FS 


SEQ 0264 


CZQNACO DEQNA FUNCTIONAL TEST 5S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 
OBAL ROUTINE - XMIT_SETUP_PACKET ( P1 ) 5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA)ZQNA4 .BLI;2 (22) 


012737 000400 000000G #400, TEMP1 ; 2501 
002000 #2000, »oXMIT.O.LIST+10 $ 2502 


002400 #2400, TEMP1 2504 

140000 #-40000, (SP) 2505 

000000G TEMP1, -(SP) 

002040' PC,CHK.XMIT.STATUS 

002616' PC, COMPARE . PACKETS 2507 

000014 014,SP 2475 
PC 2445 


Routine Size: 83 words, Routine Base: ACSCODE$ + 5046 
Maximum stack depth per invocation: 7 words 


2510 1 
2511 1 





: 
; 
: 
; 
é 
‘ 
: 
; 
5 
° 
4 
é 
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e 
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3 
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é 
é 
2 
a 
. 
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: 
6 
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3 
é 
3 
a 
4 
e 
° 
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a 
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é 
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$ 
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CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) S-Jul-1984 14:02:25 {MAZURCZYK .DEQNA )ZQNA4 .BLI;2 


SSBTTL ‘GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) ' 
GLOBAL ROUTINE SEND_ELOOP_PACKET ( P3 ) : NOVALUE = 


a 
* 


GLOBAL ROUTINE : SEND_ELOOP _PACKET 
DESCRIPTION: 


This routine initializes transmit and receive descriptor lists and 
then initiates transmissin of a loopback packet. After 

loopback packet is received DEQNA CSR, transmit and receive status r 
egisters are checked for proper status. Finally, transmit and receive 
packets are compared to verify that they are identical. 


XMIT_O_LIST } NEWB RCV_O_LIST 


vE 

XMIT_BUFFER 

. XBUF _LENGTH RCV_D_LIST 

0 RCV_D_LIST 
RCV_O_LIST 
RCV_D_LIST 
RCv_O_LIST 


NEWB 


VE 
RCV_BUFFER 
por ae 


Ee ae Le Le Le Lee ae Le] 
eseneeneae#es 
Ce Lae Lee Loe Lee Loe oe Lae) 


XMIT_O_LIST 


INPUT PARAMETERS: 
P3 - 


BEGIN 


PUT_BIT ( CSR, LB, INX_LOOPBACK ); 
XMIT_AND_RCV_PACKET ( ); 


COMPARE STATUS REGISTERS TO EXPECTED VALUES 


CHK _RIXI_STATUS ( ZERO ); 
CHK _CSR_STATUS ( CSR_ STATUS, CSR_MASK 5; 0'100220', 0‘ 100220’ 
CHK" XMIT_STATUS ( XFLG_STATUS, XWD12_STATUS ); 0' 140000’, 0'000400' 


IF .P3 EQLU ZERO 
THEN 


BEGIN 
I a etn ( RFLG_STATUS, RWD1_STATUS ); ! 0°140000' , 0'020000' 


ELSE 
BEGIN 
TEMP1 = RWD14_STATUS; ! 0'060000' 
IF .RCV_D_LIST [ STWDO1 ] AND #0'070001' EQLU #0'070001' 


SEQ 0265 


Page 


4 
(23) 





SEQ 0266 
CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 49 
GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) S-Jul-1984 14:02:25 ({MAZURCZYK .DEQNA]ZQNA4 .BLI;2 (23) 


~~ 
TEMP1 = #0'070001' 
CHK_RCV_STATUS ( RFLG ‘status, -TEMP1 ); ! 0'140000', 27722? 


SBTTL SEND. ELOOP.PACKET GLOBAL ROUTINE - SEND_ELOOP_PACKET ( P3 ) 
SEND .ELOOP. PACKET: 
MOV REG. ADR ,RO : 


#1400, 16(RO) 
#1000, 16(RO) 

i le ieee certs 
PC,CHK .RIXI.STATUS 
@-77560,(SP) 
(SP), -(SP) 
PC,CHK.CSR.STATUS 
@-40000, (SP) 

400, -(SP) 

PC, cH. XMIT.STATUS 
10(SP) 


1$ 
#-40000, (SP) 


#60000, TEMP 1 
#1,RCV.0.LIST+10 


2s 
#70001, TEMP1 
0000 


P) 
PC, CHK. “RCV. STATUS 
10,SP 
PC 


Routine Size: 51 words, Routine Base: ACSCODE$ + 5314 
Maximum stack depth per invocation: 5 words 


2570 1 
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CZQNACO DEQNA FUNCTIONAL TEST 
GLOBAL ROUTINE - SEND_TEST_PACKET 


SSBTTL ‘GLOBAL ROUTINE - SEND_TEST_PACKET ' 
GLOBAL ROUTINE SEND_TEST_PACKET : NOVALUE 


* 
oa 


BEGIN 


GLOBAL ROUTINE : 
DESCRIPTION: 


SEND_TEST_PACKET 


I5 


5-Jul-1984 14:13:51 
5-Jul-1984 14:02:25 


VAX-11 Bliss-16 V4.0-579 
{[MAZURCZYK .DEQNA)ZQNA4 .BLI;2 


This routine initializes transmit and receive descriptor lists and 
then initiates transmissin of an external loopback packet. 


XMIT_D_LIST 


INPUT PARAMETERS: 


RESET_DEQNA ( ); 


INCR INDEX FROM O TO 5S 00 
BEGIN 


XMIT_BUFFER [ . INDEX ] 
XMIT_BUFFER [ . INDEX + 6 ) 
; 


XMIT_BUFFER [ PKT_TYPE ] 
XMIT_BUFFER [ PKT_TYPE + 1 ] = 
XMIT_BUFFER [ PKT_TYPE + 2 } = 


+ 
* 


FS 


“DUSWMY oO 
a dd dd dt 


m<oo 


CONVERT SETUP PACKET SIZE 
DESCRIPTOR LISTS 


NEWB 
VE 
XMIT_BUFFER 


. XBUF __LENGTH 


= .TARGET_ADR [ (€ PHA_INDEX # 6 ) + 
= ,TARGET_ADR [ (€ PHA_INDEX * 6 ) «+ 


5 LPB_PKT Fy 
SKIP_CNT; 
RFC; 


RBUF LENGTH = PKT_LENGTH + 14; 
XBUF LENGTH = - ( 


-RBUF _LENGTH * -1 ); 


RCV_O_LIST 
RCV_O_LIST 
RCV_O_LIST 
RCV_O_LIST 
RCV_D_LIST 
RCV_D_LIST 
RCV_D_LIST 
RCv_O_LIST 


ISAAK 


NOU SwWwMrYe oO 
a 


) 


m<oo 


NEWB 


VE 
RCV_BUFFER 
. XBUF __LENGTH 


“WRITE ETHERNET STATION ADDRESS AND DATA PATTERN INTO THE TRANSMIT BUFFER 


. INDEX }; 
INDEX }; 


FROM BYTE COUNT TO WORD COUNT AND SET UP 


SEQ 
+) 


026 
age 


7 
50 
(24) 


SEQ 0268 
CZQNACO DEQNA FUNCTIONAL TEST S$-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 51 
GLOBAL ROUTINE - SEND_TEST_PACKET S-Jul-1984 14:02:25 (MAZURCZYK .DEQNA)ZQNA4 .BLI;2 (24) 


SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 


s@erare 
' id 
* 


SET DEQNA TO EXTERNAL LOOPBACK MODE AND SEND LOOPBACK PACKET 


PUT_BIT ( CSR, LB, EXT_LOOPBACK ); 
XMIT_AND_RCV_ PACKET ( ); 


= ff for for forelfotfu 


-SBTTL SEND. TEST.PACKET GLOBAL ROUI"NE - SEND_TEST_PACKET 
SEND. TEST. PACKET: : 
JSR ° »RESET.DEQNA 


3 
0 : INDEX 
1$: TARGET .ADR+162(RO),XMIT. cating 
*#CINDEX), *( INDEX) 
TARGET .ADR+162(RO), XMIT. BUFFER+6CRO) 3 
s *C INDEX), *C INDEX) 
RO 3: INDEX 
RO, #5 3 INDEX,+* 


1$ 

$220, XMIT.BUFFER+14 
XMIT.BUFFER+15 
01,XMIT.BUFFER+16 
02752, RBUF .LENGTH 
sree »RO 


RO 

RO, XBUF .LENGTH 

os (SP) XBUF .LENGTH, + 
@-60000, -( SP) 

PC,SET.RDESCR.LIST 

XBUF .LENGTH, (SP) 

@-60000, -( SP) 

PC,SET.XDESCR.LIST 

REG. ADR ,RO 

#1400, 16(RO) 

PC, as .AND.RCV.PACKET 


; Routine Size: 51 words, Routine Base: ACSCODE$ + 5462 
; Maximum stack depth per invocation: 4 words 


; 2636 1 





KS 





SEQ 0269 

ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 pees 52 
v01.0 GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 5-Jul-1984 14:02:25 (MAZURCZYK .DEQNA)ZQNA4.BLI;2 (25) 
: 2637 1 @SBTTL ‘GLOBAL ROUTINE - XMIT_AND_RCV_PACKET ' 

2638 1 
: 2639 1 GLOBAL ROUTINE XMIT_AND_RCV_PACKET : NOVALUE = 
3 2640 1 
; 2641 1 fee 
Hy 2642 1 : 
3 2643 1 ' GLOBAL ROUTINE : XMIT_AND_RCV_PACKET 
; 2644 1 H 
3 2645 1 ! DESCRIPTION: 
3 2646 1 : 
; odd 1 : This routine initiates transmit and receive operations. 
3 264 1 : 
3 2649 1 ' INPUT PARAMETERS: 
: 2650 1 : 
5 2651 1 : 
: 2652 1 H 
3 2653 1 Hy 
3 2654 1 $-- 
8 2655 1 
Fy 2656 2 BEGIN 
: 2657 2 
: 2658 2 .IOP_TABLE { RLO_ADR ) = RCV_D_LIST; 
8 2659 2 IOP _ TABLE [ RHI_ADR ] = 0; 
3 2660 2 
3 2661 2 .IOP_TABLE [ XLO_ADR ) = XMIT_D_LIST; 
3 2662 2 .IOP_TABLE [ XHI_ADR }) = 0; 
3 2663 2 
3 2664 1 END; 

.SBTTL XMIT.AND.RCV.PACKET GLOBAL ROUTINE - XMIT_AND_RCV_PACKET 
000000 012777 000000G 000004G XMIT.AND.RCV.PACKET:: 
MOV ORCV.D.LIST,@IOP. TABLE +4 : 2658 

000006 005077 000006G CLR @IOP . TABLE +6 : 2659 
000012 012777 000000G 000010G MOV @xXMIT.D. tit. SIOP. TABLE +10 3 2661 
000020 005077 000012G CLR @IOP. TABLE+ 12 3 2662 
000024 000207 RTS PC ; 2639 
; Routine Size: 11 words, Routine Base: ACSCODE$ + 5630 


: Maximum steck depth per invocation: 0O words 


; 2665 1 
; 2666 1 


L5 


ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 
v01.0 GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 ) 5-Jul-1984 14:02:25 
: 2667 1 *@SBTTL ‘GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 ) ' 
2668 1 
+ 5669 1 —SsGLOBAL ROUTINE XMIT_ILOOP_PACKET ( P3 ) : NOVALUE = 
: 2670 1 
; 2671 1 tee 
; 2672 1 : 
: 2673 1 * GLOBAL ROUTINE : XMIT_ILOOP_PACKET 
3 2674 1 g 
3 2675 1 ' DESCRIPTION: 
3 2676 1 $ 
3 2677 1 $ This routine 
: 2678 1 $ 
: 2679 1 * INPUT PARAMETERS: 
: 2680 1 H 
: 2681 1 : P3 - selector 
: 268e 1 § 
: 2683 1 !-. 
: 2684 1 
8 2685 2 BEGIN 
3 2686 2 
3 2687 2 CLR_DESCR ( ); 
: 2688 2 
3 2689 2 SET_RDESCR_LIST ( .XBUF_LENGTH, VE ); 
3 ote : SET_XDESCR_LIST ( .XBUF_LENGTH, VE ); 
3 
8 2692 2 XMIT_AND_RCV_PACKET ( ); 
3 2693 2 
3 2694 2 .IOP_TABLE ({ CSR ) = EENABLE; 
Fy 2695 2 
3 2696 2 IF .P3 EQLU ONE 
Fy 2697 2 THEN 
8 2698 3 BEGIN 
FH} 2699 3 CHK _RIXI_STATUS (€ ONE ); 
Fy 2700 3 CHK “CSR_ STATUS ( CSR_ STATUS, CSR_MASK ); § 0'100220', 
3 de : CHK “RCV. STATUS ( RFLG_ STATUS, RWD16_ STATUS ds |! 0'140000', 
F 
F} 2703 2 ELSE 
F} 2704 3 BEGI 
F} 2705 3 CHK _RIXI_STATUS ( ZERO ); 
8 2706 3 CHK_CSR_STATUS ( CSR_ STATUS, CSR_MASK ); § 0'100220', 
F} 2707 3 CHK_RCV_STATUS ( RFLG_ STATUS, RWO13_ STATUS d; !£ 0'140000', 
8 2708 2 END; 
3 2709 2 
3 2710 2 CHK _XMIT_STATUS ‘ _— STATUS, XWD12_STATUS ); § 0'140000', 
Fy 2711 2 COMPARE _PACKETS ( 
; e712 2 «, IOP_TABLE [ CSR > ° DISABLE; 
3 2713 2 
3 2714 i END; 


VAX-11 Bliss-16 V4.0-579 
{MAZURCZYK . DEQNA )ZQNA4 .BLI;2 


0’ 100220’ 
0'044000' 


0’ 100220' 
0‘ 000000’ 


0’ 000400' 


TTL XMIT.ILOOP.PACKET GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 ) 


. SB 
000000 004737 001206’ XMIT. ILOOP PACKET: : 
JSR PC,CLR.DESCR 


SEQ 0270 


Page 


53 
(26) 


2687 


MS 





SEQ 027 

ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Rai 54 
v01.0 GLOBAL ROUTINE - XMIT_ILOOP_PACKET ( P3 ) .- 5-Jul-1984 14:02:25 (MAZURCZYK .DEQNAJZQNA4 .BLI;2 (26) 
000004 013746 000000G MOV XBUF .LENGTH, -( SP) 3 2689 
000010 012746 120000 MOV #-60000, -( SP) 
000014 004737 003234' JSR PC,SET. RDESCR. LIST 
000020 013716 000000G MOV XBUF . LENGTH, (SP) : 2690 
000624 012746 120000 MOV #-60000, -( SP) 
000030 004737 003312’ JSR PC,SET. XDESCR. LIST 
000034 004737 00£630' JSR PC,XMIT.AND.RCV.PACKET : 2692 
000040 012777 08901 000016G MOV #1,8I10P. TABLE +16 3 2694 
000046 076627 060010 000001 CMP 10(SP),@1 3; P3,« 2696 
000054 ¢01016 BNE a 
000056 (12716 000001 MOV 1,(SP) $ 2699 

(904737 001262' JSR pt * CHK, RIXI.STATUS 
000066 012716 100220 MOV @-77560,(SP ) 3 2700 
000072 (11646 MOV (SP), -CSP) 
000074 €04737 001646' JSR PC, CHK. CSR. STATUS ‘ 
000100 012716 140000 MOV @- 40000, (SP) 3 i 2701 
000104 012746 044000 MOV #44000, -( SP) 
000110 000413 BR 2s 
000112 + 705016 1$: CLR (SP) Fy 2705 
000114 004737 001262' JSR PC ,CHK .RIXI.STATUS 
000120 012716 100220 MOV #-77560, (SP) 3 2706 
voo0124 011646 MOV (SP), -CSP) 
000126 004737 001646' JSR PC,CHK.CSR.STATUS 
000132 012716 140000 MOV #-40000, (SP) 3 2707 
000136 005046 CLR -(SP) 
000140 004737 002336' 2s: JSR PC,CHK.RCV.STATUS 
000144 012716 140000 MOV #-40000, (SP) r} 2710 
000150 012746 000400 MOV #400, -( SP) 
000154 004737 002040’ JSR PC, CHK. XMIT.STATUS 
000160 004737 002616' JSR PC ,.COMPARE .PACKETS F 2711 
000164 005077 000016G CLR @IOP. TABLE +16 3 2712 
000170 062706 000014 ADD #14,SP 3 2685 
000174 000207 RTS PC ry 2669 
; Routine Size: 63 words, Routine Base: ACSCODE$ + 5656 


; Maximum steck depth per invocation: 7 words 


; 2715 1 
3 2716 1 


SEQ 0272 
CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:13:51 VAX-11 Bliss-16 V4.0-579 Page 55 
GLOBAL ROUTINE - TURN_OFF_LED ( Pl ) S-Jul-1984 14:02:25 (MAZURCZYK .DEQNA )ZQNA4 .BLI;2 (27) 
SSBTTL ‘GLOBAL ROUTINE - TURN_OFF_LED ( Pil )’ 


GLOBAL ROUTINE TURN_OFF_LED ( P1 ) : NOVALUE = 


+ 
* 


GLOBAL ROUTINE : TURN_OFF _LED 
DESCRIPTION: 

This routine 
INPUT PARAMETERS: 

Pl - 


BEGIN 
PREP _FOR_SETUP ( ); 


INCR INDEX1 FROM 1 TO 14 DO 
WRT_STATION_ADR ( .INDEX1, PHA_INDEX ); 


XMIT_SETUP_PACKET ( .P1 ); 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 


-SBTTL TURN.OFF.LED GLOBAL ROUTINE - TURN_OFF_LED ( P1 ) 
010146 9) 
R1,-CSP) 3 
PC ,PREP .FOR.SETUP F 
#1,R1 s *, INDEX] 
R1,-CSP) 3; INDEX1,¢ 


023, -(SP) 

PC,WRT. STATION. ADR 

(SP)+,(SP)-+ 

eB 3: INDEX1 


1 
rt he 3; INDEX1,«¢ 


4(SP),-(SP) ; Pl,* 
PC, XMIT. SETUP .PACKET 
; 


(SP )+ 
(SP)+,R1 3 
PC 


s Routine Size: 22 words, Routine Base: ACSCODES + 6054 
; Maximum stack depth per invocation: 4 words 





B6 


ZQNA4 CZQNACO DEQNA FUNCTIONAL TEST §-Jul-1984 14:13:51 
v01.0 GLOBAL ROUTINE - TURN_OFF_LED ( Pl ) 5-Jul-1984 14:02:25 
: 2746 1 

3 2747 1 

3 2748 1 ENO 

: 2749 0 ELUDOM 


ee Gt Ge Ge Gs Ge Ge 


OTS external references 
-GLOBL $SAVE3, $SAVE2 


PSECT SUMMARY 
Psect Name Words Attributes 
ACSCODE$ 1580 RO, I , LCL, REL, CON 


Library Statistics 


cocccece Symbols -------- Pages 
File Total Loaded Percent Mapped 
DISK $USER2: [MAZURCZYK . DEQNA JQNALIB.L16;2 
223 133 59 14 


COMMAND QUALIFIERS 
BLISS/PDP11 ZQNA4.BLI/LIST=ZQNA4 .LIS/OBJECT=ZQNA4 . OBJ/SOURCE =FAGE : 53 


Size: 1580 code + 0 date words 
Run Time: 00:48.5 

Elapsed Time: 04:48.1 

Lines/CPU Min: 3402 
Lexemes/CPU-Min: 24486 

Memory Used: 236 pages 

Compilation Complete 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK . DEQNA )ZQNA4 .BLI;2 


Processing 
Time 


00:00.0 


SEQ 027 
Page 


3 
56 
(27) 


C6 
CZQNACO DEGNA FUNCTIONAL TEST 5-Jul-1984 14:18:44 VAX-11 Bliss-16 V4.0-579 ee phe 
5-Jul-1984 14:02:44 — [MAZURCZYK.DEQNAJZQNAS.BLI;2 (1) 
MODULE ZGNAS (STITLE *CZGNACO DEGNA FUNCTIONAL TEST’ 
ADDRESSING _MODE( ABSOLUTE ) 
MSBTTL “LAST ADDRESS AND SETUP SECTION: 
BEGIN 
LIBRARY ‘QNALIB’; ! QNALIB LIBRARY 


REQUIRE ‘BLSMAC.REQ’; DIAGNOSTIC SUPERVISOR LIBRARY 
!<BLF /NOF ORMAT > 





D6 


SEQ 027 

ZQNAS CZQNACO DEQNA FUNCTIONAL TEST 5-Jul-1984 14:18:44 VAX-11 Bliss-16 V4.0-579 , Arid 2 
v01.0 LAST ADDRESS AND SETUP SECTION 5-Jul-1984 14:02:44 (MAZURCZYK .DEQNA]ZQNAS.BLI;2 (2) 
Fy 1502 e2 LASTAD 
3 1503 2 BGNSETUP(1); ' NUMBER OF P-TABLES 
; P 1504 2 BGNPTAB 
3 1505 2 ENDPTAB 
3 1506 1 ENDSETUP 

~TITLE ZQNAS CZQNACO DEQNA FUNCTIONAL TEST 

-IDENT /VO01.0/ 

ENABL 
000000 -PSECT $xYZ$, RO 
000000 000004' BLS$LAS::.WORD TSFREE 
000002 000000C .~WORD <<TS$FREE -<BL$LAS+4>>/2> 
000004 000000 TSFREE::.WORD 0 

000004‘ LS$LAST== BLSLAS+4 
000001 TSPTHV== 1 

-SBTTL $END.LINK LAST ADDRESS AND SETUP SECTION 
000000 000207 $END.LINK:: 

RTS PC 3 1499 
3; Routine Size: 1 word, Routine Base: $XYZ$ + 0006 


: Maximum stack depth per invocation: 9 words 


Fy 1507 

3 1508 1 END 

FY 1509 0 ELUDOM 

3 PSECT SUMMARY 

; Psect Name Words Attributes 

FH Library Statistics 

8 

Fy ee ee ee th a ee oe Symbols -------- Pages Processing 
Hy File Total Loaded Percent Mapped Time 

Fy 

s DISKSUSER2:(MAZURCZYK.DEQNA)QNALIB.L16;2 

$ 223 3 1 14 00:00.1 


E6 


ZQNAS CZQNACO DEQNA FUNCTIONAL TEST S-Jul-1984 14:18:44 
v01.0 LAST ADDRESS AND SETUP SECTION 5-Jul-1984 14:02:44 


COMMAND QUALIFIERS 
BLISS/PDP11 ZQNAS.BLI/LIST=ZQNAS.LIS/OBJECT=ZQNAS .OBJ/SOURCE «PAGE : 53 


Size: 1 code + 3 data words 
Run Time: 00:06.3 

Elapsed Time: 00:20.2 

Lines/CPU Min: 14486 
Lexemes/CPU-Min: 76252 

Memory Used: 101 pages 
Compilation Complete 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK .DEQNA)ZQNAS.BLI;2 


SEQ 0276 
Page 


3 
(2) 


ORR RP RP RR rer Rr OOO OrRrrrOOOCOCOOrPrFrFrFrOOCOCOOCOCO 


F6 


5-Jul-1984 14:03:17 VAX-11 Bliss-16 V4.0-579 
2-Jul-1984 17:11:54 (MAZURCZYK . DEGNA JQNALIB.R16;1 


* 
* 


DEFINE DATA STRUCTURES IN THIS SECTION 


STRUCTURE ! DEFINE ACCESS ALGORITHM 
REG_STR [ 0, P, S, E J= 
BEGIN 
LOCAL TMP_LOCATION; 
TMP_LOCATION = .CREG_STR + SUPVAL * 0) <0,#BPVAL,0>; 


TMP _LOCATION 
END < P, S, E >; 


STRUCTURE ! DEFINE ACCESS ALGORITHM 
ADR_STR [ 0, P, S, E Js 
BEGIN 
LOCAL TMP_LOCATION; 
TMP_LOCATION = (ADR_STR + SUPVAL * 0) <0,#BPVAL,0>; 
TMP _LOCATION 
END < P, S, E >; 


STRUCTURE ! DEFINE ACCESS ALGORITHM 
LBLOCK [ 0, P, S, E. I }= 
BEGIN 


ta FROM O TO 2 OF 


S 
{ 0): 
a ee ae 


no ‘i, .LBLOCK + 0 * SUPVAL ); 

‘ “( .LBLOCK + 0 * SUPVAL ); 
H 

END < P, S, E >; 


SEQ 
pP 


0277 
age 


(1) 





Z222 BtI2Iz2z 


zt2z2 


zz 


oooooo0oo0oooooooo0o0o0oo0o0o0o0oo0o0o0o0oco0o0o0ocoo0o0ooo 


G6 


S-Jul-1984 14:03:17 VAX-11 Bliss-16 V4.0-579 
2-Jul-1984 17:11:54 {[MAZURCZYK .DEQNA JQNALIB.R16;1 


] 
! MACRO DEFINITIONS 


MACRO 
TST -_ € ADDR, EXPECTED ) = 
( IF ( .ADDR AND EXPECTED ) EQLU EXPECTED 
THEN 
TRUE 


LSE 
FALSE )s, 


et OFFSET, POSITION, IMAGE ) = 
; -REG_ADR + SUPVAL « OFFSET )< sFIELDEXPAND ( POSITION ) > = IMAGE; 


— € OFFSET, POSITION, IMAGE ) = 
— + OFFSET )< sFIELDEXPAND ( POSITION ) > = IMAGE; 


& 

a 

! THIS MACRO GETS BITS SPECIFIED BY THE FIELD NAME “ POSITION “ 
! AND MEMORY LOC SPECIFIED BY (.REG_ADR + SUPVAL « OFFSET) 
8 

oF 


t 


GET_BIT ( OFFSET, POSITION ) = 
-REG_ADR [ OFFSET, POSITION )} #; 


SEQ 0278 
Page 


(2) 


ooooooooooooocooocoooooocoooocoooc0oocoo0o0o00c0o0o0ocoo0ocoo0oc0o0o0o00o0o00oooo 


> 
* 


PROGRAM LITERALS 


K 

TIME1_LIMIT 
TIME2 LIMIT 
TIMES_LIMIT 
TIMES LIMIT 
TIMES_LIMIT 
TIME6_LIMIT 
TIME? _LIMIT 
TIMES _LIMIT 
TIME9_LIMIT 


10P_VEC 


+ 


oe ©@ 6@ 6@ (@ 6+@ 6S 6a 4@ +e +e 


H6 


5-Jul-1984 14:03:17 
22-Jul-1984 17:11:54 


DELAY - LOOP ITERATION COUNT 
DELAY - LOOP ITERATION COUNT 
DELAY - LOOP ITERATION COUNT 
DELAY - LOOP ITERATION COUNT 
DELAY - 26K LOOP ITERATION COUNT 
DELAY - LOOP ITERATION C 

DELAY - LOOP ITERATION COUNT 
DELAY - LOOP ITERATION COUNT 
DELAY - LOUP ITERATION COUNT 


I/O PAGE REGISTER SIZE 
OFFSET TO DEVICE ADDRESS 
OFFSET TO DEVICE VECTOR ADDRESS 


VAX-11 Bliss-16 V4.0-579 
([MAZURCZYK . DEQNA JQNALIB.R16;1 


SEQ 0279 
Page 


(3) 


SEQ 0280 
S-Jul-1984 14:03:17 VAX-11 Bliss-16 V4.0-579 Page 4 
2-Jul-1984 17:11:54 [MAZURCZYK , DEQNA JQNALIB.R16;1 (3) 


TOP _BRL = 4, OFFSET TO DEVICE BR LEVEL 
INT_VEC 6. 


CSR = 7, 
WORD_LIMIT 60'177777', 





ecooooooooocooooooooooo0oocooo0o0oococoo0o0coo0ooooc0cooooo0oooocsoo 


-COUNT 
D_WD1_STATUS 
D_WD2_STATUS 


D1_OFF SET 
D2_OF FSET 


ee 
° 
553 
sneaeee#e#e 


T_SIZE 
DESCR_SIZE 
SIZE 
BD_0_SIZE 
BUF _SIZE 
B_SIZE 
SETUB_SIZE 
BYTE_COUNT 


PROM_SIZE 
CHSUM_OFF SET 
SA_RBL 
PKT_LENGTH 
MAX _LENGTH 


LEGAL __LENGTH 
1" 


RF 
PKT_DATA 


SHORTEST_PACKET 


LONGEST _PACKET 
LSPL 
PHA _INDEX 


J6 


S-Jul-1984 14:03:17 VAX-11 Bliss-16 V4.0-579 
2-Jul-1984 17:11:54 ([MAZURCZYK .DEQNA JQNALIB.R16;1 


DEFINITIONS 


STATUS WORD 0, FLAG WORD 


18, : 
H 


120, 

128, 

DESCR_SIZE / 2, 
16 


4096, 

BUF_SIZE / 2, 

- ( BUF_SIZE / 4 ), 
096, 


#0'177775', * STATION ADR RCV BUF LENGTH - 3 WDS 
= 1500, ' PACKET LENGTH 

= 1534, ' PACKET LENGTH 

= 1514, ' LEGAL PACKET LENGTH 

= 1536, * ILLEGAL PACKET LENGTH 

= 60'0220', * LOOPBACK PACKET 

= 12, $ PACKET TYPE 

tf ; 

= 15, $ 

= 60, § SHORTEST SETUP PACKET LENGTH 

= 1514, § LONGEST SETUP PACKET LENGTH 

= 1514, § LONGEST SETUP PACKET LENGTH 

= ° ' PHYSICAL ADDRESS INDEX IN THE 

$ TARGET_ADR VECTOR 

S P . * INPUT CONSOLE TERMINAL VECTOR LOC 
5 , 24‘, ' POWER FAIL VECTOR LOCATION 

= €0'177524', ' TURN OFF CPU LED LIT ON DCOK 

= #60'177560', * CONSC_E TERMINAL INPUT ADDRESS 

= #0'000190', ' ENABLE CONSOLE TERMINAL INPUT 


SEQ 0281 
Page 


5 
(4) 


K6 : f 


SEQ 0282 
S-Jul-1984 14:93:17 - VAX-11 Bliss-16 V4.0-579 Page 6 
2-Jul-1984 17:11:54  (MAZURCZYK.DEQNAJQNALIB.R16;1 (5) 


Yee 
e 


! TRANSMIT, RECEIVE AND CSR STATUS AND MASK WORD DEFINITIONS 
8 


CSR_STATUS 
CSRI_STATUS 
CSR2_STATUS 


#0'100220', 
#0‘ 000062" 


#0'000060' , 
#0'100220', 
#0'010376', 
#0'167777', ! TRANSCEIVER POWER ( XC - BIT 12 ) 
#0'010000',, TRANSCEIVER POWER ( XC - BIT 12 ) 


= #0'001411', ! CSR STATIC BITS 
= #60'001471', ! CSR STATIC BITS 


NXM_LO_ADR #0‘ 160000' , NXM ADDRESS - LOW ORDER BITS 
NXM_HI_ADR #0‘'000077', NXM ADDRESS - HIGH ORDER BITS 


XFLG_MASK #0‘ 140000' , TRANSMIT FLAG WORD MASK BITS 
_MASK #0‘ 100000‘ , TRANSMIT STATUS WD 1 MASK BITS 
XWO1_MASK #0'157760', TRANSMIT STATUS WD 1 MASK BITS 
XWD2 _MASK #0'037777', TRANSMIT STATUS WD 2 MASK BITS 
XFLG_STATUS EXPECTED TRANSMIT FLAG WORD 


xWD11_STATUS 
xWD12_STATUS EXPECTED TRANSMIT STATUS WD 1 

BIT 8 IS SET IN INTERNAL LOOOPBACK MODES 
BIT 6 IS RESET IN EXTERNAL LOOOPBACK MODES 
EXPECTED TRANSMIT STATUS WD 1 


RECEIVE FLAG WORD MASK BITS 
RECEIVE STATUS WD 1 MASK BITS 
RECEIVE STATUS WO 1 MASK BITS 
RECEIVE STATUS WD 1 MASK BITS 
RECEIVE STATUS WO 1 MASK BITS 
EI TATUS WD 


xWD14_STATUS 


MASK 
RWD1_STATUS 
RWD11_STATUS 
RWD12_STATUS 
RWO13_STATUS 
RWD14_STATUS 
RWD15_STATUS 
RWO16_STATUS 


RFLG_STATUS 


EXPECTED RECEIVE 
EXPECTED RECEIVE 
EXPECTED RECEIVE 
EXPECTED RECEIVE 
EXPECTED RECEIVE STATUS WD 


! EXPECTED RECEIVE FLAG WORD 


RHL _MASK ! RCV HIGH ORDER LENGTH BITS 
RLL _MASK ! RCV LOW ORDER LENGTH BITS 


eceooooooooocooooooooooco0ooco“ooco0ooooocooc“ec“o“oooco0oc“eoc“ecocoe 


: 
. 
; 
° 
‘ 
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é 
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SEQ 0283 
S-Jul-1984 14:03:17 VAX-11 Bliss-16 V4.0-579 Page 7 
2-Jul-1984 17:11:54 | [MAZURCZYK.DEQNAJQNALIB.R16;1 (6) 


BUFFER DESCRIPTOR / CHAIN DESCRIPTOR BIT DEFINITIONS 


VALIO ADORESS IF 1 
CHAIN ADDRESS IF 1 
END OF MESSAGE IF 1 
SETUP MODE PACKET IF 1 


BUFFER NOT USED IF 1 
LAST DESCRIPTOR IN CHAIN 


#0'120077', 


#6'11', 
#8'11', 
#8'00', 


#8'00', 
#B8'10', 
#B'11', 


#0'000200' , 
#0'000202', 
#0'000201', 
#0'000204', 
#0'000210', 
#0'000214', 


XMIT AND RCV LISTS INVALID 
INTERNAL AND EXTERNAL LOOPBACK BITS 
INTERNAL AND EXTERNAL LOOPBACK BITS 


INTERNAL LOOPBACK MODE 
INTERNAL/EXTENDED LOOPBACK MODE 
EXTERNAL LOOPBACK MODE 


ENABLE NORMAL MODE OF OPERATION 
ENABLE PROMISCUOUS MODE OF OPERATION 
ENABLE ALL MULTICAST MODE OF OPERATION 
TURN OFF LED 1 

TURN OFF LED 2 

TURN OFF LED 3 


ecoooooooooooocooooooooo »o0o0o000000000000 





ooooooooo0oooooo0o0ocooo 


M6 


S-Jul-1984 14:03:17 
2-Jul-1984 17:11:54 


See 
! STATION ADDRESS CONSTANTS 


! HIGH STATION ADDRESS BITS 
MIOOLE BITS 

! LOW STATION ADDRESS BITS 

! ACTUAL CHECKSUM INDEX 


° HARDWARE AND SOFTWARE P-TABLE EQUATES 
oe 
SWP _SIZE = 5S. ! SOFTWARE P-TABLE SIZE ( WORDS ) 
HWP _SIZE * 2, ! HARDWARE P-TABLE SIZE ( WORDS ) 


SET_IT = 1, 
CLR_IT = O; 


VAX-11 Bliss-16 V4.0-579 
(MAZURCZYK .DEQNA JQNALIB.R16;1 





o G+ Ge Ge Gs Ge Ge Ge Ge Ge Gt Ge Ge Gt Ge Ge GH Ge Ge Ge Gt Gt Gt Gt GH Gt Ge Ge Ge Ge Gt Ge Ge GH GH Ge Ge Ge Ge Ge Ge Ge Ge Ge GF 
eoooooooo0oo0oooo0ooocoococoocoococoocoec“oeocoocooooocoooooooco 


SEQ 0285 
S-Jul-1984 14:03:17  VAX-11 Bliss-16 V4.0-579 Page 9 
2-Jul-1984 17:11:54 — (MAZURCZYK.DEQNAJQNALIB.R16;1 (8) 


! THE CONTROL AND STATUS REGISTER BIT DEFINITIONS 
a 


FIELD 
TOP_FIELDS = 
RE =[{0, 1,01, ! RECEIVER ENABLE R/W ( ACTIVE HIGH ) 
SR = (1, 1, 0], ?} SOFTWARE RESET R/W ( ACTIVE HIGH ) 
NI = (2.1.0 }. + NXM INTERRUPT R  ( ACTIVE HIGH ) 
BD = { 3, 1. 0]; ! BOOT/DIAGNOSTIC ROM R/W ( ACTIVE HIGH ) 
XL = (4.1.0); ! XMIT LIST INVALIO R  ( ACTIVE HIGH ) 
RL = (5, 1,0), #! RCV LIST INVALID R ( ACTIVE HIGH ) 
IE = (6, 1.0). ! INTERRUPT E R/W € ACTIVE HIGH ) 
XI = { 7.1.0), ! XMIT INTERRUPT REQUEST R/W ( ACTIVE HIGH ) 
IL = { 8. 1.01, ! INTERNAL LOOPBACK MODE R/W( ACTIVE LOW ) 
EL = { 9. 1.0, ! EXTERNAL LOOPBACK MODE R/W ( ACTIVE HIGH ) 
SE = (10, 1. 0], ! SANITY TIMER ENABLE R/W € ACTIVE HIGH ) 
x1 = (11, 1. 0}, ! RESERVED, UNUSABLE 
xc = (12, 1. 0}, ! TRANSCEIVER PWR R  ( ACTIVE HIGH ) 
CA = (13, 1. 0}, ! CARRIER R ( ACTIVE HIGH ) 
x2 = (14, 1.0 ];, ! RESERVED, UNUSABLE 
RI = [15, 1. 0]. ! RCV INTERRUPT REQUEST R/W ( ACTIVE HIGH ) 
=(8, 2,0), ! LOOPBACK BITS 
XLRL = [ 4, 2, 0 jf ! XMIT AND RCV LISTS INVALID BITS 
ALL_BITS= { 0,16, 0 }, ! FETCH WHOLE WORD 
LO.NIBBLE = [ 0, 0, 0}, ' 
HI-NIBBLE = (0, 4, 0}, : 
LO-BYTE =[{0, 8,01, ' 
HIBYTE =[ 0, 16,0), * GET WORD, ALL BITS 
ST~ =(0, 8.0), ! STATION ADDRESS LOW BYTE 
ST-WORD = (0, 16,0). ! GET WORD, ALL BITS 
RCV_LO = [ 2, 0, 16, 0}, ! RCV BUFFER DESCRIPTOR LIST LOW ADDRESS 
RCV-HI = [( 3, 0. 8, ' RCV BUFFER DESCRIPTOR LIST HIGH ADDRESS 
XMIT_LO = [{ 4, 0. 16, 0}, ! XMIT BUFFER DESCRIPTOR LIST LOW ADDRESS 
XMIT-HI = [ 5, 0. 8, 0 , * XMIT BUFFER DESCRIPTOR LIST HIGH ADDRESS 
VEC_ADR = { 2, 8, 0), INTERRUPT VECTOR ADDRESS 
VEC_ALL = [ 6, 0, 16, 0 }. ! INTERRUPT VECTOR ADDRESS 
“aL = { 7. 0. 16, * CONTROL AND STATUS REGISTER 


ooooooooo0ooocooooooococooocoooooooocoocoocooococooooocos 


B7 


S-Jul-1984 14:03:17 VAX-11 Bliss-16 V4.0-579 
2-Jul-1984 17:11:54 ({MAZURCZYK . DEQNA JQNALIB.R16;1 


® 
e 
! TRANSMIT AND RECEIVE DESCRIPTOR LIST FIELDS 
® 
e 


FIEL 
OL -_ ® 

FLGWO =[{ 0, 0, 16, 0), ' XMIT OF RCV FLAG WORD 
OBITS «=[{ 1, 0. 16,0), § DESCRIPTOR BITS 
H_BIT *«{i, 61.01), ! XMIT BUFFER BEGINS ON BYTE BOUNDARY 
L_BIT ef kk. Ws he O be ! XMIT BUFFER ENDS ON BYTE BOUNDARY 
S_BIT *f a. 12. 1. O ie § SET-UP PACKET IF 1 
E_BIT =f 8. B83. be 8 Ie ' LAST DESCRIPTOR IN CHAIN ( END ) 
C_BIT oft a. 16, he @ de § DESCRIPTOR HAS CHAIN ADDRESS IF 1 
V_BIT °*€ &. 38. be O is ! VALID ADDRESS IF 1 
LOADR = [ 2, 0, 16, 0), * LOW 16 BITS OF XMIT OR RCV BUFFER ADDRESS 
TWOL ={ 3, 0. 16.0), § XMIT OR RCV PACKET WORD LENGTH 
STWO1 = (4, 0, 16,0), § XMIT OR RCV STATUS WORD 1 
VF ={(4,0,1, 01). ! FIFO BUFFER OVERFLOW 
ABORT eft é, DF Sa O Ie : 
STE16 «6h = ( 4, 10, 1, 0), * SANITY TIMER ON AT POWER_UP 
NOC *»=({ 4, 11, 1. 0), ' NO CARRIER 
RUNT =({ 4,11, 1,0), $ RUNT PACKET IN FIFO 
ESETUP = [ 4, 13, 1.0). § CONTROL SET_UP OR LOOPBACK PACKET 
L =({ 4, 14, 1,0], * LONG PACKET 
errsu = [ 4, 14, 1, 0), $ ERROR SUMMARY 
LSTO «{ 4, 15,1,0)], $ LAST DESCRIPTOR LIST IN CHAIN 
stwo2 =[{ 5S, 0. 16,0), * XMIT OR RCV STATUS WORD 2 
TOR =({ 5, 0, 14,0), : 
RBLL =({ 5, 0, o O he * RECEIVE BYTE LENGTH ( LOW 8 BITS ) 
OL INK = ({ 6, 0, 16, 0), * DESCRIPTOR LINK PRE-FILL STATUS WD 
BSTAT =({7, 0, 16,01), $ BUFFER STATE ! XMIT ODD/EVEN ! HIGH ORDER ADR 
B.LEN =[ 0, 8 0), 
W_LEN = [ 0,16, 0 } 
TES; 


SEQ 0286 
Page 





10 
(9) 


SEQ 0287 
S-Jul-1984 14:03:17  VAX-11 Bliss-16 V4.0-579 Page 11 
2-Jul-1984 17:11:54 | [MAZURCZYK.OEQNAJQNALIB.R16;1 (10) 


- 
> 


HARDWARE P-TABLE FIELD DEFINITIONS 


FIELD 
HWP_FIELOS = 
SET 


! I/0 PAGE BASE ADDRESS 
! INTERRUPT VECTOR ADDRESS 
! BR LEVEL 


al 
m 
oO 
see 
- 
i) 
o 
oo 
et et et 
* -e 


* 
. 


SOFTWARE P-TABLE FIELD DEFINITIONS 


nm 
Lon] 


ELD 
ats | ee ° 


ET 
— = (0,0,16,0) ! @ OF ERRORS BEFORE DROPPING DEQNA 
5 


@e Gt ©» Go OF OF OF OF OF OF Os OF OF GF OF Ge OF OF OF GF OF Os OF OF OF OF 8 os 
oo 
$$ 
at 
oooooco0oo0o0o0o0ooo0o0oo0oo0o0o0o0o0o0o0o0ooo 


3 COMMAND QUALIFIERS 
; BLISS/PDP11 QNALIB.R16/LIST=QNALIB.LIS/LIBRARY =QNAL IB .L16/SOURCE =PAGE : 53 


Run Time: 00:03.6 
Elapsed Time: 00:06.9 
Lines/CPU Min: 6837 
Lexemes/CPU-Min: 32681 

Memory Used: 46 pages 

Library Precompi lation Complete 


ZQNACO.EXE 


Memory allocation map TKB 40.02 
5-JUL -84 14:19 


Partition name : DUMMY 

Identification : V01.0 

Task VIC : (202,22) 

Task attributes: -HD 

Total address windows: i. 

Task image size : 11232. words 

Task address limits: 002000 055677 

R-W disk blk limits: 000002 000055 000054 00044, 


eee Root segment: ZQNAl1 


R/W mem limits: 002000 055677 053700 22464. 
Disk blk Limits: 000002 000055 000054 00044. 


Memory allocation synopsis: 


sCODE$:(RO,I,LCL.REL,.CON) 002000 000406 00262. 
002000 000242 00162. 
002242 000144 00100. 
$GLOB$:(RW,D.LCL,REL,CON) 
AASCOD:(RO,I,LCL,REL.CON) 
ABSCOD:(RO,I,LCL.REL.CON) 
ACSCOD:(RO,I,LCL,REL.CON) 


- BLK.:(RW,I,LCL,REL.CON) 


015112 007036 03614. 
015112 007036 03614. 
024150 000370 00248. 
024150 000370 00248. 
024540 022564 pa oy 
024540 022564 09588 
047324 006130 03160. 
047324 006130 03160. 
54 000000 00000 


0554 . 
055454 000224 00148. 


055454 000214 00140. 
055670 000010 00008. 


BLSLAS 055670-R 
BOE 000400 
BUF .LE 015026-R 
CHECKS 015024-R 
CHK.CS 051172-R 
-RC 662 


COMPAR 052142- -R 


Page 1 


File 


ZQNA1 .OBJ;2 
ZQNA2 . OBJ; 2 


ZQNA1 .0BJ;2 
ZQNA1 .0BJ;2 
ZQNA2 .0BJ;2 
ZQNA3.0BJ;2 
ZQNA4 .0BJ;2 


B16SAV.OBJ;2 
ZQNAS .0BJ;2 


DOWN.C 015022- -R 
DSPCNT porte ey -R 


EF .RES 000037 
EF .STA 000040 


ERRBLK 002204-R 
ERRMSG 002202-R 
ERRNBR 002200-R 
ERROR$ 047324-R 
ERRTYP 002176-R 
ERR.CO 015040-R 


ETH.ST 014054- -R 
EVL 000004 
E1SREP 047630-R 


FORM.H 053722-R 
GET.AD 015004-R 


002312-R 


INTERR 015012-R 
IOP .DA 015002-R 
014034-R 


LSAU 
LSAUTO 024462- -R 


SEQ 0288 








ZQNACO.EXE 


002106-R 
LSCLEA 024474-R 


21 
LSLUN 002074-R 


Memory 5 re ion map 
5-JUL -84 14:19 


LS$MREV 002050-R 
LS$NAME 002000-R 


L$PROT 002234-R 
LS$PRT 002112-R 
L$REPP 002062-R 
LSREV 002010-R 
LSRPT 024160-R 
L$SFTL 002334-R 


016512- -R 


eee Task builder statistics: 


Totel work file references: 871537. 
Work file reads: 0. 

Work file writes: 0. 
Size of core pool: 4016. words (15. pages) 
Size of work file: 3328. words (13. pages) 


Elapsed time:00:00:39 


TKB 


M40.02 


016574-R 


021702-R 
021760-R 


MSG70 
MSG7 


PHYS.A 013006-R 


PRIO1 000040 


E/ 


015010- R 


STATIO 014070- -R 
SWP.BL 002230-R 


SWP.IL 002226-R 
SWP.LB 002222-R 
SWP.TA 014776-R 


01 
TMP ..IO 015042- -R 
TMP ..RE 015044-R 
TURN.O 055400-R 


T15 041770-R 
T16 044036-R 
T17 044700-R 
718 045216-R 
119 045566-R 
T2 026032-R 
T20 046266-R 
Tal 047310-R 


UAM 000200 

UP.COU 015020-R 
VER.DE 050332-R 
WAIT.F 055562-R 
WALKIN 052714-R 
WRT.ST 053446-R 
XBUF .L 015006-R 
XC.FLA 015032-R 
XMIT.A 055154-R 
XMIT.B 007006-R 
XMIT.D 002606-R 
XMIT.I 055202-R 
XMIT.S 054372-R 
$END.L 055676-R 
$SAVE2 055454-R 
$SAVE3 055470-R 
$SAVE4 055506-R 
$SAVES 055526-R 


SEQ 0289 


F7 


SEQ 0290 
ZQNACO CREATED BY TKB ON 5-JUL-84 AT 14:19 PAGE 1 
GLOBAL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES... 
@ ZQNAL @ ZQNA2 
BD.PRO 014300-R @ ZQNA1 ZQNA3 ZQNA4 
BITO 000001 @ ZQNA1 @ ZQNA2 
BITOO 000001 @ ZQNAL1 = @ ZQNA2 
BITO1 000002 @ ZQNAL @ ZQNA2 
BITO2 009004 @ ZQNAl = @ ZQNA2 
BITOS 00')010 @ ZQNALl @ ZQNA2 
BITO4 000020 @ ZQNAl @ ZQNA2 
BITOS 000040 @ ZQNAL @ ZQNA2 
BITO6 000100 @ ZQNAL @ ZQNA2 
BITO7 000200 @ ZQNAL @ ZQNA2 
BITO8 000400 @ ZQNAL @ ZQNA2 
BITO9 001000 @ ZQNAL @ ZQNA2 
BIT1 @ ZQNAL @ ZQNA2 
BIT10 002000 @ ZQNAL @ ZQNA2 
BIT11 004000 @® ZQNAl @ ZQNA2 
BIT12 010000 @ ZQNAL @ ZQNA2 
BIT13 020000 @ ZQNAL @ ZQNA2 
BIT14 040000 @ ZQNAL @ ZQNA2 
BIT1S5 100000 @ ZQNAL @ ZQNA2 
BIT2 000004 @ ZQNAL @ ZQNA2 
BITS 000010 @ ZQNAl @ ZQNA2 
BIT4 000020 @ ZQNAl 8 @ ZQNA2 
BITS 000040 @ ZQNAl @ ZQNA2 
BIT6 000100 @ ZQNAL @ ZQNA2 
BIT7 000200 @ ZQNAL @ ZQNA2 
BITS 000400 @ ZQNAL @ ZQNA2 
BITS 001000 @ ZQNAL @® ZQNA2 
BLS$LAS 055670-R @ ZQNAS 
@ ZQNAl 8 @ ZQNA2 
BUF.LE 015026-R @ ZQNA1 
CHECKS 015024-R @ ZQNAL ZQNA3 ZQNA4 
CHK.CS 051172-R ZQNA3 @ ZQNA4 
CHK.RC 051662-R ZQNAS © ZQNA4 
CHK RI -R ZQNAS © ZQNA4 
CHK.XM 051364-R ZQNAS @ ZQNA4 
CLR.BU 050560-R ZQNAS @ ZQNA4 * 
CLR.CE 050532-R ZQNAS @ ZQNA4 
COMPAR 052142-R ZQNAS @ ZQNA4 
COUNTE 015016-R @ ZQNA1 ZQNA3 ZQNA4 
CSR.WO 015030-R @ ZQNA1 ZQNA3 ZQNA4 
DATA.B 00 -R @ ZQNA1 ZQNA3 ZQNA4 
QNA. 015014-R @ ZQNAL ZQNA3 ZQNA4 
SCR. 002406-R @ ZQNAL ZQNA3 ZQNA4 
OFSTB. 002210-R @ ZQNAL 
DOWN.C 015022-R © ZQNA1 ZQNA3 ZQNA4 
DSPCNT 002122-R © ZQNAL 
EF.CON 0000 @ ZQNAL @ ZQNA2 
EF .NEW 000035 @ ZQNAL @ ZQNA2 
WR 000034 @® ZQNAL ¢@ ZQNA2 
EF.RES 000037 @ ZQNAL @ ZQNA2 
EF.STA 000040 @ ZQNA1 @ ZQNA2 





ZQNACO CREATED BY TKB ON 5-JUL-84 AT 14:19 
CROSS REFERENCE 
VALUE REFERENCES... 
002204 -R 


015034-R 
014054- 
000004 


002072-R @ ZQNAL 


PAGE 2 
CREt 


vo2 


G7 


SEQ 0291 





ZQNACO 


CREATEO BY TKB 


GLOBAL CROSS REFERENCE 
REFERENCES... 


SYMBOL 
LSOVTY 


VALUE 
002242-R 


ON 5-JUL-84 AT 14:19, 


@ ZQNA2 


@ ZQNA2 


PAGE 3 
CREt 


voe 


H7 


SEQ 0292 





I7 


SEQ 0293 
ZQNACO CREATED BY TKB ON 5-JUL-84 AT 14:19 PAGE 4 


GLOBAL CROSS REFERENCE CREF voe 
REFERENCES... 


022714-R 





J7 


SEQ 0294 

ZQNACO CREATED BY TKB ON S-JUL-84 AT 14:19 PAGE 5 ” 
GLOBAL CROSS REFERENCE CREF voe2 
SYMBOL VALUE REFERENCES... 
MSG60 023026-R @ ZQNA1 ZQNA3 ZQNA4 
MSG61 023070-R @ ZQNA1 ZQNA3 ZQNA4 
MSG62 023132-R @ ZQNA1 ZQNA3 ZQNA4 
MSG63 023222-R @ ZQNA1 ZQNA3 ZQNA4 
MSG64 023316-R @ ZQNA1 ZQNA3 ZQNA4 
MSG65 023352-R @ ZQNAl ZQNA3 ZQNA4 
MSG66 023416-R @ ZQNA1 ZQNA3 ZQNA4 
MSG67 023504-R @ ZQNA1 ZQNA3 
MSG68 02 -R @ ZQNA1 ZQNA3 ZQNA4 
MSG69 023704-R @ ZQNAL ZQNA3 ZQNA4 
MSG70 024004-R @ ZQNA1 ZQNA3 ZQNA4 
MSG71 024070-R @ ZQNAL ZQNA3 
NXM.IN 024530-R @ 2 ZQNA3 
PHYS.A 013006-R @ ZQNA1 ZQNA3 ZQNA4 
PNT 001000 @ ZQNAL @ ZQNA2 
PREP.F 653640-R ZQNAS @ ZQNA4 
PRI 002000 @ ZQNAL @ ZQNA2 
PRIOO 000000 @ ZQNAL @ ZQNA2 ZQNA3 ZQNA4 
PRIO1 000040 @ ZQNAL @ ZQNA2 ZQNA3 ZQNA4 
PRIO2 000100 @ ZQNAL @ ZQNA2 ZQNA3 ZQNA4 
PRIO3 000140 @ ZQNAL @ ZQNA2 ZQNA3 ZQNA4 
PRIO4 000200 @ ZQNAL @® ZQNA2 ZQNA3 ZQNA4 
PRIOS 000240 @ ZQNAL @ ZQNA2 ZQNA3 ZQNA4 
PRIO6 000300 @ ZQNAL @ ZQNA2 ZQNA3 ZQNA4 
PRIO7 000 @ ZQNAL @ ZQNA2 ZQNA3 ZQNA4 
PTRN.T 014100-R @ ZQNA1 ZQNA3 
PWUR.IN O05 -R © CZQNAA ZQNA3 
Pl 015070-R @ ZQNA1 ZQNA3 ZQNA4 
P2 015072-R @ ZQNA1 ZQNA3 ZQNA4 
P3 015074-R @ ZQNA1 ZQNA3 ZQNA4 
Pa 015076-R @ ZQNAi ZQNA3 ZQNA4 
PS 015100-R @ ZQNA1 
Q@STOl 015112-R @ ZQNA1 ZQNA2] 
QSTO2 015142-R @ ZQNA1 ZQNA2] 
Q@STOS3 015172-R @ ZQNA1 ZQNA2 
QSTG4 015234-R @ ZQNA1 ZQNA2 
Q@STOS 015276-R @ ZQNA1 ZQNA2 
QSTO6 015340-R @ ZQNA1 ZQNA2 
QSTO7 015402-R @ ZQNA1 ZQNA2] 
RBUF.L 015010-R @ ZQNA1 ZQNA3 ZQNA4 
RCV.BU 00 -R @ ZQNA1L ZQNA3 ZQNA4 
RCV.D. 002406-R @ ZQNA1 ZQNA3 ZQNA4 
RD13 014574-R @ ZQNA1 ZQNA3 

@ ZQNA1 ZQNA2 ZQNA3 ZQNA4 


SP.TAB 002220-R @ ZQNAL 
STATIO 014070-R @ ZQNA1 ZQNA3 ZQNA4 
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: SEQ 0295 
ZQNACO ~ CREATED BY TKB ON 5-JUL-84 AT 14:19 PAG. 6 


CROSS REFERENCE CREF voe 
REFERENCES... 
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L7 


ZQNACO CREATED BY TKB ON S-JUL-84 AT 14:19 PAGE 7 SEQ 0296 
GLOBAL CROSS REFERENCE CREF  vo2 
SYMBOL VALUE REFERENCES... 


VER.DE 050332-R ZQNA3S) = @ ZQNA4 
WAIT.F O55562-R @ CZQNAA ZQNA3 
QNAS @ ZQNA4 


XBUF.L 015006-R @ ZQNA1 ZQNA3 ZQNA4 


XMIT.B 007006-R @ ZQNA1 ZQNA3 ZQNA4 
XMIT.D 002606-R @ ZQNA1 ZQNA3 ZQNA4 


$SAVE2 055454-R @ CZQNAA ZQNA3 ons 
$SAVE4 055506-R @ CZQNAA ZQNA2 ZQNA3 


